怎样知道我的程序是否运行在DELPHI?

function IsAppRunningInDelphi : boolean;
var
hKernelDll : THANDLE;
proc_IsDebuggerPresent : TProcIsDebuggerPresent;
useFindWindow : boolean;
proc : FARPROC;
begin
useFindWindow := true;
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
// WinNt
try
hKernelDll := GetModuleHandle(kernel32);
if (hKernelDll = -1) then
hKernelDll := LoadLibrary(kernel32);
if (hKernelDll <> -1) then
begin
proc := GetProcAddress(hKernelDll, ''''IsDebuggerPresent'''');
if (proc <> nil) then
begin
proc_IsDebuggerPresent := proc;
result := proc_IsDebuggerPresent;
useFindWindow := false;
end;
end;
except
end;
end;
if (UseFindWindow) then
begin
if FindWindow(''''TAppBuilder'''', Nil) <> 0 Then
result := true
else
result := false;
end;
end;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!