怎样知道我的程序是否运行在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 那么

结果：=真

别的

结果：=假；

结尾;

结尾;