fungsi IsApPRunningInDelphi : boolean;
var
hKernelDll : TANDLE;
proc_IsDebuggerPresent : TProcIsDebuggerPresent;
useFindWindow : boolean;
proses : FARPROC;
mulai
useFindWindow := benar;
jika (Win32Platform = VER_PLATFORM_WIN32_NT) maka
mulai
// Tidak Menang
mencoba
hKernelDll := GetModuleHandle(kernel32);
jika (hKernelDll = -1) maka
hKernelDll := LoadLibrary(kernel32);
jika (hKernelDll <> -1) maka
mulai
proc := GetProcAddress(hKernelDll, 'IsDebuggerPresent');
jika (proc <> nihil) maka
mulai
proc_IsDebuggerPresent := proc;
hasil := proc_IsDebuggerPresent;
useFindWindow := salah;
akhir;
akhir;
kecuali
akhir;
akhir;
jika (UseFindWindow) lalu
mulai
jika FindWindow('TAppBuilder', Nihil) <> 0 Lalu
hasil := benar
kalau tidak
hasil := salah;
akhir;
akhir;