Testei no Windows 98
e essa rotina fecha o programa
mas, não desliga o Computador
Abraço
Ademir
------------------------------------------------------------------------------
Enviei esta mensagem ontem e não obtive nenhuma resposta, será que ninguem
poderia testar isso ai.....
Galera, algum amigo da lista que tiver o win98 e o XP poderia testar a
rotina abaixo e me retornar dizendo se a mesma funciona?
Eu testei no windows 2000 e ela funcionou legal, gostaria de testar nos
outros S.O. para poder usa-la em meu sistema.
Obrigado.
procedure TForm1.Sair1Click(Sender: TObject);
var
pid, hToken : THANDLE;
tkp, tpkNewButIgnored : TOKEN_PRIVILEGES;
tmpLuid : TLUIDAndAttributes;
BufLen : DWORD;
begin
if Messagebox(handle,'Desligar o computador?','Desligar',MB_ICONQUESTION
or MB_YESNO) = IDYes then
begin
Pid := GetCurrentProcess;
OpenProcessToken(Pid, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken);
LookUpPrivilegeValue(nil, 'SeShutdownPrivilege', tmpLUID.LUID);
with tkp do
begin
PrivilegeCount := 1;
Privileges[0].Luid := tmpLUID.LUID;
Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
end;
AdjustTokenPrivileges(hToken, False, tkp,
sizeof(tpkNewButIgnored), tpkNewButIgnored, BufLen);
if not ExitWindowsEx(EWX_FORCE + EWX_POWEROFF, 0) then {POWEROFF}
ExitWindowsEx(EWX_FORCE + EWX_LOGOFF, 0); {LOGOFF}
Close;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
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
