Código
procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;
//Adicionar a procedure à seção implementation de sua unit:
procedure TForm1.WMEndSession(var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
ShowMessage('O Windows está finalizando ' + #13 + 'às ' +
FormatDateTime('c', Now));
inherited;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009