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;