¿Cómo sé si mi programa se está ejecutando en DELPHI?

función IsApPRunningInDelphi: booleano;

var

hKernelDll: THANDLE;

proc_IsDebuggerPresent: TProcIsDebuggerPresent;

useFindWindow: booleano;

proceso: FARPROC;

comenzar

useFindWindow := verdadero;

si (Win32Platform = VER_PLATFORM_WIN32_NT) entonces

comenzar

// WinNt

intentar

hKernelDll := GetModuleHandle(kernel32);

si (hKernelDll = -1) entonces

hKernelDll := LoadLibrary(kernel32);

si (hKernelDll <> -1) entonces

comenzar

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

si (proc <> nulo) entonces

comenzar

proc_IsDebuggerPresent := proc;

resultado := proc_IsDebuggerPresent;

useFindWindow := falso;

fin;

fin;

excepto

fin;

fin;

si (UseFindWindow) entonces

comenzar

si FindWindow('TAppBuilder', Nil) <> 0 Entonces

resultado := verdadero

demás

resultado := falso;

fin;

fin;