Discussion :

[ILP]

Bonjour, voici une petite fonction permettant de savoir si le programme en cours est exécuté derrière un debuggeur.

Code Pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// Vérifie si le programme est en mode debug
function DebuggerPresent(): Boolean;
type
  TDebugProc = function(): Boolean; stdcall;
var
  Kernel32: HMODULE;
  DebugProc: TDebugProc;
begin
  Result := False;
  Kernel32 := GetModuleHandle('kernel32');
  if Kernel32 <> 0 then
  begin
    @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent');
    if Assigned(DebugProc) then
      Result := DebugProc();
  end;
end;

Plus d'informations sur la fonction IsDebuggerPresent sur MSDN.

[ShaiLeTroll]

Merci ILP, tient voici une version spécifique à Delphi qui vérifie DebugHook avant d'utiliser l'API et gère les versions de Windows au passage

Code de IsRunInDebugger