Duvida Em Impedir Finalização do Windows

Delphi

08/09/2005

procedure WMQueryEndSession(var Msg : TWMQueryEndSession); message WM_QueryEndSession;


procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession);
begin
if MessageDlg(´Fecha o Windows ?´, mtConfirmation, [mbYes,mbNo], 0) =
mrNo then
Msg.Result := 0
else
Msg.Result := 1;
end; 


mas quando cliko em nao ele mesmo assim desliga o windows,, Alguem poderia me ajudar??


Daniel.felgar

Daniel.felgar

Curtidas 0
POSTAR