Ist meine Anwendung gedebuggt?

Ist meine Anwendung gedebuggt?

Ist meine Anwendung gedebuggt? : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie Sie feststellen, ob Ihr Code im Debug-Modus ausgeführt wird.
Ich habe diesen Code irgendwo im Internet, ich kann mich nicht erinnern die Quelle so ich kann nicht den ursprünglichen Autor Kredit.
Funktion DebuggerPresent: boolean;
Typ
TDebugProc = Funktion: boolean; Stdcall;
var
Kernel32: HMODULE;
DebugProc: TDebugProc;
beginnen
Ergebnis: = False;
Kernel32: = GetModuleHandle('kernel32.dll');
Wenn Kernel32 <> 0 dann
beginnen
@DebugProc: = GetProcAddress (Kernel32, 'IsDebuggerPresent');
Wenn Assigned(DebugProc) dann
Ergebnis: = DebugProc;
Ende;
Ende;