Ermitteln, ob meine Anwendung unter der IDE "Delphi 2007.Net" läuft

Question

Wie kann ich feststellen, ob meine Anwendung unter der IDE "Delphi 2007.Net" läuft, gibt es so etwas wie DebugHook?

Tschüss.

Answer 1

Beantworten Sie meine eigene Frage.

uses System.Diagnostics; 

function IDEDelphiNetRunning:Boolean; 
Begin 
Result:=Debugger.IsAttached; 
End; 

funktioniert gut für mich.

Tschüss.

Answer 2

Der IsDebuggerPresent() WinAPI-Aufruf.

Answer 3

Etwas wie:

Function IDEIsRunning : boolean; 
begin 
    result := DebugHook <> 0; 
end; 

passen könnte.

Answer 4

fand ich diese allgemeinere Antwort von embarcadero

Verwenden Sie den IsDebuggerPresent() WinAPI Anruf. Beispiel in C++:

if (IsDebuggerPresent()) 
    Label1->Caption = "debug"; 
else 
    Label1->Caption = "no debug"; 

Answer 5

Die JEDI JclDebug.pas Einheit enthält folgende Komponenten:

function IsDebuggerAttached: Boolean; 
var 
    IsDebuggerPresent: function: Boolean; stdcall; 
    KernelHandle: THandle; 
    P: Pointer; 
begin 
    KernelHandle := GetModuleHandle(kernel32); 
    @IsDebuggerPresent := GetProcAddress(KernelHandle, 'IsDebuggerPresent'); 
    if @IsDebuggerPresent <> nil then 
    begin 
    // Win98+/NT4+ 
    Result := IsDebuggerPresent 
    end 
    else 
    begin 
    // Win9x uses thunk pointer outside the module when under a debugger 
    P := GetProcAddress(KernelHandle, 'GetProcAddress'); 
    Result := DWORD(P) < KernelHandle; 
    end; 
end; 

Answer 6

function IsDebugMode():Boolean; 
begin 
    Result:=False; 
{$IFDEF DEBUG} 
    Result:=True; 
{$ENDIF} 
end;