自分のプログラムが DELPHI で実行されているかどうかを確認するにはどうすればよいですか?

関数 IsAppPRunningInDelphi : ブール値;

変数

hKernelDll : ハンドル;

proc_IsDebuggerPresent : TProcIsDebuggerPresent;

useFindWindow : ブール値;

proc : FARPROC;

始める

useFindWindow := true;

if (Win32Platform = VER_PLATFORM_WIN32_NT) then

始める

// WinNt

試す

hKernelDll := GetModuleHandle(kernel32);

if (hKernelDll = -1) then

hKernelDll := LoadLibrary(kernel32);

if (hKernelDll <> -1) then

始める

proc := GetProcAddress(hKernelDll, 'IsDebuggerPresent');

if (proc <> nil) then

始める

proc_IsDebuggerPresent := proc;

結果 := proc_IsDebuggerPresent;

useFindWindow := false;

終わり;

終わり;

を除外する

終わり;

終わり;

if (UseFindWindow) then

始める

if FindWindow('TAppBuilder', Nil) <> 0 then

結果:= true

それ以外

結果:= false;

終わり;

終わり;