Prüfen ob Programm aus der Delphi-IDE ausgeführt wird

[SirThornberry]

Ich hab vorhin vergeblich gesucht wie ich heraus finde ob ein programm aus der Delphi-IDE heraus ausgeführt wird und hab hier im Forum nichts gefunden. Nacht etwas Googeln hab ich dann die Lösunge gefunden.

Bei Delphi-Treff bin ich dann fündig gewurden

Zitat:

Delphi-Quellcode:

if DebugHook <> 0 then
    ShowMessage('Aus IDE heraus ausgeführt')
  else
    ShowMessage('Direkt ausgeführt');

Setzt voraus, dass in Delphi Tools - Debugger-Optionen - Integrierte Fehlersuche eingeschaltet ist.

[Luckie]

Eine kurze Suche (:mrgreen:) 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.

[Sanchez]

@Luckie
Deine Lösung guckt aber nur ob Delphi läuft. Es liefert aber keine Aussage darüber, ob das Programm aus der Delphi-IDE heraus ausgeführt wird. Insofern ist es wirklich 10% verlässlich :zwinker:

[Luckie]

Hm. Ja. Aber an wa sich dachte ist auch nicht das passende, aber da shatte ich im Hinterkopf: ComponentState abfragen mit csDesigning. Aha. Hier hab eich noch was gefunden: http://www.delphipraxis.net/internal...ebuggerpresent :). Könnte man eventuell mit meinem ersten Vorschlag kombinieren. Dann sollte es einigermaßen dicht sein. ;)