Herunterfahren verhindern, Programm nicht beenden

**BlueStarHH**

Ich habe mal was zusammen geschraddelt. Das ist nicht wirklich gut. Aber die angefragte Funktionalität ist da. D.h. der Neustart des Systems wird verhindert. Getestet mit Delphi 2007 unter Windows 10Pro-64Bit und Windows 7Pro-32Bit.

Edit: Geänderte Version. Zusätzlich mit ausführbarer Datei.

Danke samso, Deine EXE läuft. Wenn ich dein Demoprojekt unverändert mit Delphi 2010 neu kompiliere, läuft es nicht mehr: Man sieht zwar den Text der BlockReason und es geht auch ganz kurz die Frage auf, ob gespeichert werden soll. Dann wird das Programm aber sofort und automatisch geschlossen, ohne das man einen Button im Dialog geklickt hat. Windows fährt dann nicht herunter.

Wenn ich das Projket mit Delphi 10 Seattle neu compliere ist alles OK. Was macht Delphi 2010 also anders? Evtl. eine Compiler-Einstellung oder ein Bug? Kann das jemand mal bitte mit Delphi 2010 ausprobieren? Im Anhang Dein Log, was meine mit Delphi 2010 erzeugte EXE geschrieben hat. Das sieht schon komisch aus.

**ConnorMcLeod**

Das könnte die Antwort sein

http://qc.embarcadero.com/wc/qcmain.aspx?d=84886

Unter Windows 10 funktioniert dein beispielprojekt. Unter Windows 7 nicht mehr.

Herunterfahren verhindern, Programm nicht beenden

AW: Herunterfahren verhindern, Programm nicht beenden

AW: Herunterfahren verhindern, Programm nicht beenden

AW: Herunterfahren verhindern, Programm nicht beenden

Forumregeln

ConnorMcLeod Registriert seit: 13. Okt 2010 Ort: Bayern 490 Beiträge Delphi 10.4 Sydney	#22 AW: Herunterfahren verhindern, Programm nicht beenden 21. Jul 2016, 12:48 Das könnte die Antwort sein http://qc.embarcadero.com/wc/qcmain.aspx?d=84886 Nr.1 Delphi-Tool: [F7]
	Zitat

dGeek (Gast) n/a Beiträge	#23 AW: Herunterfahren verhindern, Programm nicht beenden 21. Jul 2016, 13:11 Unter Windows 10 funktioniert dein beispielprojekt. Unter Windows 7 nicht mehr.
	Zitat