Herausfinden ob Programm über Debugger ausgeführt wird

[Mikescher]

Hallo,

gibt es in Delphi eigentlich eine Möglichkeit abzufragen ob die exe "normal" gestartet wurde oder über den Delphi Debugger ?

Der Grund ist, dass man bevor mein Hauptprogramm startet immer ein Intro-Video anschauen muss. Und nach dem Motto "Wasser predigen, Wein trinken" will ich nicht jeders mal beim testen das Video anschauen 8-) . Bisher hab ich den "Video-Code-Abschnitt" einfach auskommentiert, aber ich fand die Idee interessant ob so was geht (und ich befürchte dass ich am Ende vergesse den Code wieder zu dekommentieren).

MfG Mikescher

[Balu der Bär]

Such mal im Forum nach IsDebuggerPresent. ;)

[SirThornberry]

Du könntest das überspringen des Intros zum Beispiel auch per Parameter überspringen (prüfen ob ein bestimmter Parameter übergeben wurde).

[MaBuSE]

Zitat:

Zitat von Mikescher

gibt es in Delphi eigentlich eine Möglichkeit abzufragen ob die exe "normal" gestartet wurde oder über den Delphi Debugger ?

Ja, das ist einfach:

Delphi-Quellcode:

function RunningInDelphi: Boolean;
begin
   Result := DebugHook <> 0;
end;

So kann man das ganze einfach testen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
    if RunningInDelphi then
      Color := clRed
   else
      Color := clBlue;
end;

[Mikescher]

Danke euch :cheers: ,

ich hab diesen Code mit Balus Suchbegriff gefunden:

Delphi-Quellcode:

function IsDebuggerPresent: boolean; stdcall;
asm
  MOV     EAX, DWORD PTR FS:[$30]   
  TEST    EAX, EAX
  JS      @@W9X
@@WNT:
  MOV     EAX, FS:[$18]
  MOV     EAX, [EAX+$30]
  MOVZX   EAX, [EAX+2]
  RET
@@W9X:
  MOV     EAX, [$BFFC9CE4]
  MOV     ECX, [EAX]
  CMP     DWORD PTR [ECX+$54], 1
  SBB     EAX, EAX
  INC     EAX
  RET
end;

Aber ich glaub ich nehme Den von MaBuSE, der ist kürzer und funktioniert auch :wink: .

Also Thanks

MfG Mike

[SirThornberry]

Der von Mabuse sagt nur ob es aus Delphi heraus ausgeführt wird (also das was du wissen wolltest). Die umfangreichere Variante prüft generell auf Debugger wenn ich das richtig sehe.