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 <  > -1) then

begin

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

if (proc <  > nil) then

begin

proc_IsDebuggerPresent := proc;

result := proc_IsDebuggerPresent;

useFindWindow := false;

end;

end;

except

end;

end;

if (UseFindWindow) then

begin

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

result := true

else

result := false;

end;

end;