Eine kurze Suche (
) brachte folgendes zu Tage:
Delphi-Quellcode:
const
Mitteilung : array[boolean]of string =
('Delphi läuft nicht','Delphi läuft');
var
Delphi : HWND;
begin
Delphi := findwindow('TAppBuilder',nil);
ShowMessage(Mitteilung[Delphi<>0]);
end;
In wiefern das jetzt 10% verlässlich ist, weiß ich nicht. Ichmeine da wäre noch eine andere Möglichkeit gewesen. Ich habe da so was im Hinterkopf. Aber das kann auch eine Eigenschaft von Komponenten gewesen sein, die von
TPersistant oder von einem anderen Vorfahren abgeleitet wurden.