|
He probado las opciones:
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('¿Estas seguro de apagarme?',mtWarning,[mbYes,mbNo],0) = mrYes
then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;
y en lugar de apagarse lo que ocurre es que cierra la sesión, lo he probado con Win98, WinME y con WinXP y en todos casos me ocurre lo mismo.
|