Windows beenden lassen

Dieses Thema im Forum "Programmieren" wurde erstellt von NoExe, 19. November 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. NoExe

    NoExe Halbes Megabyte

    Registriert seit:
    21. Juli 2004
    Beiträge:
    688
    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

    Registriert seit:
    29. Juli 2002
    Beiträge:
    490
    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 ...
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen