Erkennen, wenn meine Anwendung unter dem IDE „Delphi 2007 .Net“ läuft

Question

Wie kann ich erkennen, ob meine Anwendung unter dem IDE „Delphi 2007 Net“ ausgeführt wird, gibt es so etwas wie DebugHook?

Bye.

Answer 1

Antwort meine eigene Frage.

uses System.Diagnostics; 

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

funktioniert gut für mich.

Bye.

Answer 2

Die IsDebuggerPresent () WinAPI Anruf.

Answer 3

So etwas wie:

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

Könnte Anzug.

Answer 4

Die JEDI JclDebug.pas Einheit enthält folgende Möglichkeiten:

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 5

Ich fand diese allgemeinere Antwort von embarcadero

Mit dem IsDebuggerPresent() WinAPI Anruf. Beispiel in C ++:

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

Answer 6

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