API - desligar computador

{

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;