Läuft die Delphi IDE? |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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.
Ähnliche Seiten: