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

　2006-02-04 13:34:42　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鎼痪褔鏌曟繝蹇曠窗闁煎壊浜滈—鍐偓锝庡墮娴犙勭箾閸喎鐏ユい鏇樺劦椤㈡瑩鎮℃惔銇帮拷

核心提示：function IsApPRunningInDelphi : boolean; var hKernelDll : THANDLE; proc_IsDebuggerPresent : TProcIsDebuggerPresent; useFindWindow : boolean; proc : FARPROC; beg

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;