, følgende funktion vil opdage, hvis ansøgning er under ordnede eller ej.denne funktion vil ikke arbejde på windows 95.,, adfærd i en ansøgning kunne ændres, hvis løb inden for en debugger, f.eks. komponent forfattere ville have deres ikke - registrerede komponenter til at kunne køre i debugger.,, svar:,,,, funktion debuggerpresent: boolean,,,,, tdebugproc = funktion: boolean; stdcall;,, var, kernel32 - hmodule;,, debugproc: tdebugproc;,, begynder, resultat: = falske,, kernel32: = getmodulehandle ('kernel32. dll), hvis kernel32 < > 0, begynder, @ debugproc: = getprocaddress (kernel32, isdebuggerpresent),,, hvis det er blevet tildelt (debugproc) så, resultat: = debugproc,,,,,,,,,,, at anvende en enkelt, hvis test kan anvendes, hvis debuggerpresent,,, showmessage ('debugging), andet, showmessalvie (ikke debugging - "),