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.