Как узнать, работает ли моя программа в DELPHI?

функция IsApPRunningInDelphi: логическое значение;

вар

hKernelDll: THANDLE;

proc_IsDebuggerPresent: TProcIsDebuggerPresent;

useFindWindow: логическое значение;

процесс : ФАРПРОК;

начинать

useFindWindow: = true;

если (Win32Platform = VER_PLATFORM_WIN32_NT), то

начинать

// ВинНт

пытаться

hKernelDll: = GetModuleHandle(kernel32);

если (hKernelDll = -1), то

hKernelDll: = LoadLibrary (kernel32);

если (hKernelDll <> -1), то

начинать

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

если (proc <> ноль), то

начинать

proc_IsDebuggerPresent: = proc;

результат: = proc_IsDebuggerPresent;

useFindWindow: = ложь;

конец;

конец;

кроме

конец;

конец;

если (UseFindWindow), то

начинать

если FindWindow('TApBuilder', Nil) <> 0 Тогда

результат := правда

еще

результат: = ложь;

конец;

конец;