Herausfinden ob Programm über Debugger ausgeführt wird

[MaBuSE]

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;