Programm lässt PC nicht runterfahren

[Harry M.]

@Robert Marquardt: ich habe jetzt mal diesen code hinzugefügt, welcher ja auch von dir ist:

Delphi-Quellcode:

... 
  private 
    FCanClose: Boolean; 
    procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION; 
    procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION; 
  ... 

procedure TJoyMainForm.WMQueryEndSession(var Msg: TMessage); 
begin 
  // allow close of program on shutdown 
  FCanClose := True; 
  Msg.Result := 1; 
end; 

procedure TJoyMainForm.WMEndSession(var Msg: TMessage); 
begin 
  if Msg.WParam = 1 then 
    Msg.Result := 0; 
end;

aber mein pc will nicht runterfahren. wenn ich mit diesem code ne extra-anwendung zum testem mache geht es doch auch...