IDE oder exe - Start erkennen?

[NoGAD]

Hallo, ich weiß leider nicht genau, wie ich den Titel beschreiben soll.


Ist es möglich zu erkennen, ob ein Programm per IDE gestartet ODER per Exe-Datei gestartet wurde?

LG Mathias

[KodeZwerg]

Es ist nur wage Beschrieben was Du Wissen möchtest.
Also innerhalb deiner .exe könntest Du Dir eine PID von deinem Programm abholen und prüfen was dessen Parent-PID ist falls Du verstehst was ich meine.

[jaenicke]

Ich denke einmal es genügt mit IsDebuggerPresent zu arbeiten. Das gibt zurück, ob das Programm im Debugger läuft.

Wenn man aus Delphi heraus ohne Debugger startet, gibt es aber natürlich False zurück. Das braucht man aber normalerweise auch nicht wissen.

[NoGAD]

Hallo Sebastian,


dein Hinweis war gut. Ich möchte einfach bei der Programmierung einige Optionen zusätzlich zum Debuggen nutzen.
Bisher habe ich das imemr über Stert - Parameter mittels Schalter gemacht und suchte eine andere Variante.

DebugHook ist dann sicherlich das, worauf Dein Hinweis hinausläuft?

Das hier https://entwickler-ecke.de/topic_Fes...t_78079,0.html habe ich dann gefunden.

Wenn ich nun aber eine programmweite, globale Variable definiere, wird die in der initialization - Sektion nicht berücksichtigt. Das heißt, DebugHook funktioniert dort gar nicht.

Wo sollte ich meine Variable also korrekt initialisieren?



Edit: Nachdem ich die Variable direkt in der Unit, in der ich sie deklariert habe, unter initialization zugewiesen habe, funktioniert es perfekt.

Vielen Dank!


LG Mathias

[jaenicke]

Du brauchst keine Variable oder irgendetwas anderes. Delphi bietet die Funktion IsDebuggerPresent (aus der Windows API) an. Du musst sie nur nutzen:

Delphi-Quellcode:

if IsDebuggerPresent then
  ShowMessage('Debug Meldung');

Du musst lediglich die Unit Winapi.Windows in deiner uses haben.

[NoGAD]

Dankeschön :-)

LG und eine schöne Woche!

[jaenicke]

Übrigens noch ein Tipp, auch für spätere Leser des Threads:
Auf diese Weise kann man auch einen Dienst debuggen. Dafür startet man die IDE mit Adminrechten, fügt nach dem begin in der .dpr oder in initialization eine Schleife, die auf den Debugger wartet, ein, startet den Dienst und verbindet sich damit. So kann man auch Probleme beim Starten eines Dienstes debuggen.

Delphi-Quellcode:

while not IsDebuggerPresent do
  Sleep(50);

[freimatz]

Zitat:

Zitat von NoGAD (Beitrag 1503989)

Ich möchte einfach bei der Programmierung einige Optionen zusätzlich zum Debuggen nutzen.
Bisher habe ich das imemr über Stert - Parameter mittels Schalter gemacht und suchte eine andere Variante.

In etlichen Bereichen der Softwareentwicklung benutzt man dazu FeatureFlags. Vielleicht wäre das ein Alternative.