怎麼知道我的程式是否運行在DELPHI?

函數 IsApPRunningInDelphi ：布林值；

變數

hKernelDll：THANDLE；

proc_IsDebuggerPresent : TProcIsDebuggerPresent;

useFindWindow : 布林值；

進程：FARPROC；

開始

useFindWindow := true;

如果 (Win32Platform = VER_PLATFORM_WIN32_NT) 那麼

開始

// WinNT

嘗試

hKernelDll := GetModuleHandle(kernel32);

如果 (hKernelDll = -1) 那麼

hKernelDll := LoadLibrary(kernel32);

如果 (hKernelDll <> -1) 那麼

開始

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

if (proc <> nil) then

開始

proc_IsDebuggerPresent := proc;

結果：= proc_IsDebuggerPresent；

useFindWindow := false;

結尾;

結尾;

除了

結尾;

結尾;

如果（使用查找視窗）那麼

開始

if FindWindow('TAppBuilder', Nil) <> 0 那麼

結果：=真

別的

結果：=假；

結尾;

結尾;