Como posso saber se meu programa está rodando em DELPHI?

função IsApPRunningInDelphi: booleano;

var

hKernelDll: THANDLE;

proc_IsDebuggerPresent: TProcIsDebuggerPresent;

useFindWindow: booleano;

proc: FARPROC;

começar

useFindWindow := verdadeiro;

se (Win32Platform = VER_PLATFORM_WIN32_NT) então

começar

// WinNt

tentar

hKernelDll := GetModuleHandle(kernel32);

se (hKernelDll = -1) então

hKernelDll := LoadLibrary(kernel32);

se (hKernelDll <> -1) então

começar

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

se (proc <> nulo) então

começar

proc_IsDebuggerPresent := proc;

resultado:= proc_IsDebuggerPresent;

useFindWindow := falso;

fim;

fim;

exceto

fim;

fim;

se (UseFindWindow) então

começar

if FindWindow('TAppBuilder', Nil) <> 0 Então

resultado := verdadeiro

outro

resultado := falso;

fim;

fim;