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