API - desligar computador

Top  Previous  Next

{

Exitwindowsex(se_privilege_enabled_by_default,0);

Exitwindowsex(ewx_poweroff,0);

 

a primeira linha verifica se há algum arquivo aberto não 

salvo, e a segunda, desliga.

}

 

 

function ExitWindowsEx(uFlags : integer; dwReserved : word) : boolean; external 'user32.dll' name 'ExitWindowsEx'

 

 

procedure Tchau; 

const 

  EWX_LOGOFF = 0// Dá "logoff" no usuário atual 

  EWX_SHUTDOWN = 1// "Shutdown" padrão do sistema 

  EWX_REBOOT = 2// Dá "reboot" no equipamento 

  EWX_FORCE = 4// Força o término dos processos 

  EWX_POWEROFF = 8// Desliga o equipamento 

 

begin 

  ExitWindowsEx(EWX_FORCE, 0); 

end