1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Windows beenden lassen

Discussion in 'Programmieren' started by NoExe, Nov 19, 2004.

Thread Status:
Not open for further replies.
  1. NoExe

    NoExe Halbes Megabyte

    Hi,

    ich will von Windows die WMEndSession erhalten, wenn es runterfährt, 0 zurückgeben und das Prog beenden. Nur irgendwie bleibt manchmal das Prog offen, manchmal häng Windows.


    Der Code:

    1: procedure TForm1.WMEndSession(var Msg: TMessage)
    2: begin
    3: Msg.Result := 0;
    4: inherited;
    5: Halt;
    6: end;

    Was mach ich falsch? :heul:
     
  2. specialist7

    specialist7 Kbyte

    ich kann zwar kein delphi, aber ich nehme an, dass

    var Msg: TMessage

    damit die windowsmessge übergeben wird, die du auswerten musst...

    also ->

    windowsmessages (var Msg: TMessage)
    if Msg == WMEndSession
    then do ...
     
Thread Status:
Not open for further replies.

Share This Page