| 本月文章推荐 |
怎样知道我的程序是否运行在DELPHI?发表日期：2006-2-4
|
|
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; |
| 上一篇：杀死一个正在运行的程序
人气:5134 下一篇：怎样修改windows里的开始按钮的位图？ 人气:4859 |
| 浏览全部Delphi的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
