if is DebuggerPresent

[Mik92]

Как узнать активен ли дебаггер в другом процессе? Для своего процесса узнаю функцией

function DebuggerPresent: boolean;
type
  TDebugProc = function: boolean; stdcall;
var
  Kernel32: HMODULE;
  DebugProc: TDebugProc;
begin
  Result := False;
  Kernel32 := GetModuleHandle('ntdll.dll');
  if Kernel32 <> 0 then
  begin
    @DebugProc := GetProcAddress(Kernel32, 'DbgPrint');
    if Assigned(DebugProc) then
      Result := DebugProc;
  end;
end;

[Человек_Борща]

Внедрится и узнать изнутри.

[Mik92]

Сообщение от Человек_Борща

Внедрится и узнать изнутри.

Точно! Навели на хорошую идейку