الدالة IsApPRunningInDelphi: منطقية؛
فار
hKernelDll : THANDLE;
proc_IsDebuggerPresent : TProcIsDebuggerPresent;
useFindWindow: منطقي؛
بروك : FARPROC;
يبدأ
useFindWindow := true;
إذا (Win32Platform = VER_PLATFORM_WIN32_NT) ثم
يبدأ
// WinNt
يحاول
hKernelDll := GetModuleHandle(kernel32);
إذا (hKernelDll = -1) إذن
hKernelDll := LoadLibrary(kernel32);
إذا (hKernelDll <> -1) إذن
يبدأ
proc := GetProcAddress(hKernelDll, 'IsDebuggerPresent');
إذا (بروك <> لا شيء) ثم
يبدأ
proc_IsDebuggerPresent := proc;
النتيجة := proc_IsDebuggerPresent;
useFindWindow := false;
نهاية؛
نهاية؛
يستثني
نهاية؛
نهاية؛
إذا (UseFindWindow) ثم
يبدأ
إذا FindWindow('TAppBuilder', Nil) <> 0 ثم
النتيجة :=صحيح
آخر
النتيجة := خطأ؛
نهاية؛
نهاية؛