Bagaimana saya tahu jika program saya berjalan di DELPHI?

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;