ฟังก์ชั่น IsApPRunningInDelphi : บูลีน;
var
hKernelDll : จัดการ;
proc_IsDebuggerPresent : TProcIsDebuggerPresent;
useFindWindow : บูลีน;
proc : FARPROC;
เริ่ม
useFindWindow := จริง;
ถ้า (Win32Platform = VER_PLATFORM_WIN32_NT) แล้ว
เริ่ม
//วินNt
พยายาม
hKernelDll := GetModuleHandle(เคอร์เนล32);
ถ้า (hKernelDll = -1) แล้ว
hKernelDll := LoadLibrary (เคอร์เนล32);
ถ้า (hKernelDll <> -1) แล้ว
เริ่ม
proc := GetProcAddress(hKernelDll, 'IsDebuggerPresent');
ถ้า (proc <> ไม่มี) แล้ว
เริ่ม
proc_IsDebuggerPresent := proc;
ผลลัพธ์ := proc_IsDebuggerPresent;
useFindWindow := เท็จ;
จบ;
จบ;
ยกเว้น
จบ;
จบ;
ถ้า (UseFindWindow) แล้ว
เริ่ม
ถ้า FindWindow('TAppBuilder', Nil) <> 0 จากนั้น
ผลลัพธ์ := จริง
อื่น
ผลลัพธ์ := เท็จ;
จบ;
จบ;