Como desligar o window 95/98/me e 2000

Função para WIN 95/98/ME function ExitWindowsEx(uFlags : integer; // shutdown operation dwReserved : word) : boolean; // reserved 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; Função para Windows 2000 e XP function ExitWindowsEx(uFlags : integer; // shutdown operation dwReserved : word) : boolean; // reserved 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;

Quebra-Linha

Colaborador..: José de Queiroz
Categoria(s).: Programação; Delphi;
Versão.......: Dicas
Data.........: 16/05/2005 20:32:02
Visualizado..: 8635 vezes
Fonte........: Times New Roman