Tester si l'application est exécutée depuis l'EDI

Bonjour à tous,

J'aimerais savoir s'il existe un moyen de savoir si une application est exécutée depuis l'EDI via le débogueur de Delphi.

Un peu à la manière de la directive de compilation pour tester la version de Delphi utilisée.

{$IFDEF VER130}
a faire si Delphi5
{$ELSE}
a faire sinon
{$ENDIF}

ou VERXXX serait remplacé par autre chose....

VariableGlobale System.DebugHook pour un débug via Delphi

Sinon pour un mode debug général, tu as la fonction Windows.IsDebuggerPresent

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
//------------------------------------------------------------------------------
// Voir IsDebuggerPresent (API Windows SDK)                                    -
//                                                                             -
// L'aide API SDK Windows semble indiquer que cette function IsDebuggerPresent -
// n'est disponible qu'avec NT, à vérifier sur Win9x                           -
//                                                                             -
// IsRunInDebugger remplace la déclaration simple de Library sous Delphi       -
//                                                                             -
// interface                                                                   -
//    function IsDebuggerPresent(): BOOL; stdcall;                             -
//    {$EXTERNALSYM IsDebuggerPresent}                                         -
//                                                                             -
// implementation                                                              -
//    function IsDebuggerPresent; external kernel32 name 'IsDebuggerPresent';  -
//                                                                             -
//----------------------------------------------------------------------------*)
 
var
   _FKernelDLL: THandle = 0;
   _FVersionWindows: DWord = 0;
   _FFlagDebug: Boolean = False;
   _FFlagDebugChecked: Boolean = False;
   _IsDebuggerPresent: function: BOOL; stdcall;
 
function IsRunInDebugger(): Boolean;
var
   OSInfo: OSVERSIONINFO;
begin
   Result := _FFlagDebug;
 
   // Est-ce que le Flag a été Lu, si oui on Sort
   if _FFlagDebugChecked then
      Exit;
 
   // To know if a Application is running under de Delphi IDE or when it's running stand-alone
   if System.DebugHook <> 0 then
   begin
      _FFlagDebug := True;
      _FFlagDebugChecked := True;
   end;
 
   // Récupération de la Version de Windows
   if _FVersionWindows = 0 then
   begin
      OSInfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
      if GetVersionEx(OSInfo) then
      begin
         _FVersionWindows := OSInfo.dwPlatformId;
      end;
   end;
 
   // Si la Versin de Window est inférieur à NT ou 9x, le Résultat est Faux
   if _FVersionWindows >= VER_PLATFORM_WIN32_WINDOWS then
   begin
      // Chargement de la DLL et de la Procedure
      if @_IsDebuggerPresent = nil then
      begin
         if _FKernelDLL = 0 then
         begin
            _FKernelDLL := LoadLibrary(PChar(Kernel32));
         end;
 
         if _FKernelDLL > 0 then
         begin
            @_IsDebuggerPresent := GetProcAddress(_FKernelDLL, 'IsDebuggerPresent');
         end;
      end;
 
      // Utilisation de la Procédure Chargée
      if Assigned(@_IsDebuggerPresent) then
      begin
        _FFlagDebug := _IsDebuggerPresent();
      end else
      begin
         _FFlagDebug := False;
      end;
      // Peu Importe si la Procédure Existe, on considère que l'on a testé la valeur
      _FFlagDebugChecked := True;
 
   end else
   begin
      // Windows antérieur à WinNT, Détection du Mode Débogage impossible !
      _FFlagDebug := False;
      _FFlagDebugChecked := True;
   end;
 
   Result := _FFlagDebug;
end;
 
initialization
  _FKernelDLL := 0;
 
finalization
  if _FKernelDLL > 0 then
     FreeLibrary(_FKernelDLL);
 
end.

C'est clair, rapide et précis !

Merci à toi ShaileTroll :ccool: