-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 program desl; procedure Desliga; var hToken : THandle; tkp : TOKEN_PRIVILEGES; zero : DWord; begin OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken); LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); tkp.PrivilegeCount := 1; tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; zero := 0; AdjustTokenPrivileges(htoken, FALSE, tkp ,zero ,nil, zero); ExitWindowsEx(EWX_SHUTDOWN, 0) end; begin desliga; end;
Wilson Valdevite escreveu: > Como eu faço para desligar o windows via delphi e como eu faço para efetuar > um comando dos? Já procurei em um monte de lugar e não encontrei e o qu eu > encontrei não funciona em W2K... -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (MingW32) iD8DBQFCg8RmHKYDdGAIQkURAg2jAKDXbaH1llTveC8ZyltcEtbgIPSdkwCfbg6r PeKTHgpy4A447nGoZb4IS7k= =xz/4 -----END PGP SIGNATURE----- -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html