Wie kann ich feststellen, ob mein Programm in der Delphi-Entwicklungsumgebung läuft oder als eigenständige Exe?
Announcement
Collapse
No announcement yet.
Abfrage: Läuft Programm in Delphi-Entwicklungsumgebung?
Collapse
X
-
Hallo Claudius,<br>über FindWindow würde ich nach folgenden Fensterklassen suchen (Delphi 5):<br>TAppBuilder<br>TPropertyInspector<br>TEditW indow<br><br>
<pre>
...
a1 : hWnd ;
a2 : hWnd ;
a3 : hWnd ;
...
a1:=FindWindow('TAppBuilder',Nil);
a2:=FindWindow(TPropertyInspector,Nil);
a3:=FindWindow(TEditWindow,Nil);
DelphiIsRunning:=(a1<>0) and (a2<>0) and (a3<>0);
</pre><br>
TAppBuilder ist Delphi's Klassenname<br>
TPropertyInspector ist der ObjectInspector<br>
TEditWindow ist der Editorfenster.<br><br>Ich weiß nicht wie die Klassennamen bei anderen Delphiversionen lauten.<br>:-) Jens Schuman
Comment