Bedingte Kompilierung, wenn IDE gestartet ist

[Schwedenbitter]

Entschuldigt bitte, dass ich diese Thema wieder aufwärme. Ich möchte aber gern auf den exakten Titel/Betreff zurück kommen:

Ich habe ein Programm, dass de facto wie ein TSR arbeiten soll. Ich möchte hier nicht diskutieren, warum, weshalb, wieso. Dazu setze ich schon in der dpr-Datei Application.ShowMainForm:= False; , weiterhin wird bei OnFormCloseQuery CanClose auf False gesetzt und stattdessen nur ein Hide; ausgeführt. Das klappt auch perfekt.
Wenn ich das Programm aber bearbeite, ist dieses Verhalten nervig. Ich muss dann das Programm jedes Mal über den Taskmanager von Hand abwürgen bzw. dafür sorgen, dass das Hauptfenster Visible:= True; gesetzt wird.
Schöner wäre es, wenn ich - der Debugger ist mir dabei völlig schnurz - per Compilerschalter feststellen könnte, ob die IDE läuft. Damit wäre das Arbeiten am Code wesentlich einfacher.

Also gibt es einen Schalter für die IDE?

[jaenicke]

Nein, das musst du selbst prüfen.

[hoika]

Hallo,
mach das doch von einem Parameter abhängig.
Beim Start aus der IDE (Menupunkt Start-Parameter) setzt du diesen Parameter, sonst nicht.

Und zum Schluss noch ein IFDEF kurz vorm Release,
damit nicht jemand das Programm per Parameter selber startet.


Heiko

[BUG]

Die imho bessere Alternative sind unterschiedliche Defines für Debug- und Release-Build.

[mm1256]

Zitat von Schwedenbitter:

Also gibt es einen Schalter für die IDE?

Einen Schalter gibt es nicht, aber eine function kannst du verwenden.

Delphi-Quellcode:

function IsDelphiRunning: boolean;
begin
  Result := FindWindow('TAppBuilder', Nil) > 0;
end;

So mach ich das schon sehr lange und es funzt. Ich hab mir sogar eine kleine App mit dem Fenstertitel 'TAppBuilder' erstellt und das Projekt Bds.dpr genannt. Diese kleine Exe starte ich dann bei Problemen mit der ursprünglichen Anwendung und gaukle der somit vor, dass die Delphi-IDE läuft. Damit kannst du quasi deine App dann beim Kunden "debuggen". Extrem praktisch.

[OT]So nebenbei bemerkt: Das Prinzip mit der eigenen Bds.exe funktioniert sogar mit einigen Bibliotheken zum Testen, die nur laufen, wenn die BDE gestartet ist.[/OT]

[Sherlock]

Probier mal

Delphi-Quellcode:

if DebugHook > 0 then
  ShowMessage('Debugger ist da')
else
  ShowMessage('Kein Debugger');

Wobei man fairerweise wohl dazu sagen muss, daß System.DebugHook wohl nur die IDE als Debugger sieht.

Sherlock