Home » Tipps & Tricks » Sonstiges » IDE » Läuft die Delphi IDE?
Läuft die Delphi IDE?
Für Entwickler von Shareware Komponenten kann es ganz nützlich sein zu wissen, ob Delphi läuft. Auf diese Weise kann man bewerkstelligen, dass die Komponente nur funktioniert, wenn Delphi gestartet ist. Und so geht es:
procedure TForm1.Button1Click(Sender: TObject); begin if FindWindow('TAppBuilder',nil) <= 0 then ShowMessage('Delphi läuft nicht') else ShowMessage('Delphi läuft'); end;
Oder:
procedure TForm1.Button1Click(Sender: TObject); begin if DebugHook 0 then ShowMessage('Inside IDE') else ShowMessage('StandAlone'); end;
Setzt voraus, dass in Delphi Tools – Debugger-Optionen – IntegrierteFehlersuche eingeschaltet ist.