Konsolenanwendung Programmende abfragen

[knochen]

Hallo zusammen,

ich habe eine Konsolenanwendung und möchte abfragen, ob das Programm gerade beendet wird. Bei VCL Anwendungen geht das ja mit

Delphi-Quellcode:

if csDestroying in Application.ComponentState then ...

Application ist aber in der Unit Forms deklariert. Kann ich das trotzdem verwenden, indem ich forms.pas einbinde oder gibt es eine Entsprechung bei Konsolenanwendungen?

Vielen Dank im Voraus

[dummzeuch]

Zitat:

Zitat von knochen (Beitrag 1531023)

ich habe eine Konsolenanwendung und möchte abfragen, ob das Programm gerade beendet wird. Bei VCL Anwendungen geht das ja mit

Delphi-Quellcode:

if csDestroying in Application.ComponentState then ...

Application ist aber in der Unit Forms deklariert. Kann ich das trotzdem verwenden, indem ich forms.pas einbinde oder gibt es eine Entsprechung bei Konsolenanwendungen?

Da sich bei Konsolenanwendungen die Aufräumarbeiten stark in Grenzen halten, bezweifle ich, dass es sowas gibt. Zumal es ja bei Konsolenanwendungen, wenn Du nicht selbst Multithreading betreibst, keine (quasi) parallellaufenden Abläufe gibt.

Was genau ist denn das eigentliche Problem, das Du lösen willst?

[himitsu]

Nja, normal hat man bei Konsolen ja alles hintereinander.

Also einfach den Code für's Ende ans Ende der DPR.
Normal hat die Konsolen-Vorlage ein Try-Except, welches Exceptions nicht neu auslöst, also einfach nach dessen END diesen Code,
oder nochmal ein Try-Finally drumrum.

* So, das war jetzt für das normale Programmende oder wenn eine Exception in deinem Programmcode auftritt.

* Dann gibt es noch den Fall von Strg+C oder Strg+Untbr, sollte das eine Exception auslösen und abbrechen.
* Was das Schließen des Konsolenfensters macht, weiß ich grade nicht. (sowas wie SIGKILL, SIGTERM, SIGINT oder SIGQUIT verhält sich ja unterschiedlich)

* Einen "richtigen" Abschuss des Programms (Terminate) bekommst'e natürlich garnicht mit, weil dein Programm hart abgeschossen wird und nichts mehr ausführt


Geht es wirklich um Threads, dann mußt du das selbst regeln.
* im Hauptthread den Threads Bescheid geben
* und womöglich auf das Ende der Threads warten
* wartest du nicht, dann werden deine Threads hart abgeschossen ... vor allen, weil Delphi beim ProgrammEnde (des Hauptthreads) ein TerminateProcess auslöst (egal ob Konsole, VCL, FMX usw.)

* Grundsächlich schißet "normal" Windows immer den kompletten Prozess ab (Terminate), wenn eine Exception in irgendeinem Thread (auch dem Hauptthread) bis zum Windows durchrauscht, drum fängt TThrad Exceptions still und heimlich ab (wenn man es im OnTerminate nicht prüft)

[Kas Ob.]

Zitat:

Zitat von knochen (Beitrag 1531023)

Application ist aber in der Unit Forms deklariert. Kann ich das trotzdem verwenden, indem ich forms.pas einbinde oder gibt es eine Entsprechung bei Konsolenanwendungen?

Yes you can add Forms to console application, but it is not enough and will not solve your problem as himitsu said, you should capture the signals instead, this is cleaner and the right way with consoles.

To capture these events you need to use SetConsoleCtrlHandler
https://learn.microsoft.com/en-us/wi...olectrlhandler
https://learn.microsoft.com/en-us/wi...handlerroutine
Something like this :

Code:

function HandlerRoutine(dwCtrlType: DWORD): Bool; stdcall;
begin
  Result := false;
  if (CTRL_C_EVENT = dwCtrlType) or (CTRL_BREAK_EVENT = dwCtrlType) then
  begin

    Result := true;
  end;
end;

// setup the callback routine
SetConsoleCtrlHandler(@HandlerRoutine, True);

[Sinspin]

Delphi-Quellcode:

Try ... finally

im Hauptprogramm zwischen

Delphi-Quellcode:

begin

und

Delphi-Quellcode:

end;

.
Was in finally kommt ist dann ganz zum Schluss.

[knochen]

Ich danke euch für eure Antworten. :thumb: