Woher weiß ich, ob mein Programm auf DELPHI läuft?

Funktion IsApPRunningInDelphi: boolean;

var

hKernelDll: THANDLE;

proc_IsDebuggerPresent : TProcIsDebuggerPresent;

useFindWindow: boolean;

proc: FARPROC;

beginnen

useFindWindow := true;

if (Win32Platform = VER_PLATFORM_WIN32_NT) dann

beginnen

// WinNt

versuchen

hKernelDll := GetModuleHandle(kernel32);

if (hKernelDll = -1) dann

hKernelDll := LoadLibrary(kernel32);

if (hKernelDll <> -1) dann

beginnen

proc := GetProcAddress(hKernelDll, 'IsDebuggerPresent');

if (proc <> nil) then

beginnen

proc_IsDebuggerPresent := proc;

Ergebnis := proc_IsDebuggerPresent;

useFindWindow := false;

Ende;

Ende;

außer

Ende;

Ende;

if (UseFindWindow) then

beginnen

if FindWindow('TAppBuilder', Nil) <> 0 Dann

Ergebnis := wahr

anders

Ergebnis := false;

Ende;

Ende;