Um das Herunterfahren des Computers zu erkennen und zu verhindern, verwende ich ein sehr einfaches Programm. Es gibt nur eine Form und eine private Prozedur wie folgt:

TForm3 = class(TForm)
private
  procedure WMQueryEndSession(var Msg : TWMQueryEndSession) ;
         message WM_QueryEndSession;
end;

und die Implementierung

procedure TForm3.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
  Msg.Result := 0; //so I don't want to shutdown while my program is running
end;

I hat Delphi 5 und Delphi 2010 kompiliert. Beide erkennen das Herunterfahren. Aber als ich in Delphi 2010 kompiliert habe; Nachdem ich das Herunterfahren verhindert habe, wird mein Programm geschlossen. (PC fährt nicht herunter)

Wie erhalte ich von beiden das gleiche Ergebnis?