怎样知道我的程序是否运行在DELPHI?计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:30:08
来源 100Test.Com百考试题网

　　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