Tenho o XP e o 98. Vou testar e lhe mando a resposta.
Ralp Alves Bezerra
Msn: [EMAIL PROTECTED]
----- Original Message -----
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Wednesday, November 23, 2005 9:23 AM
Subject: [delphi-br] Testar rotina em vários S.O.
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;
__ __
/ \ /| |'-.
.\__/ || | |
_ / `._ \|_|_.-'
| / \__.`=._) (_
|/ ._/ |"""""""""|
|'. `\ | | Eduardo de Almeida Silva
;"""/ / | | Kobra Sistemas
) /_/| |.-------.| Desenvolvimento de Software
' `-` ' " "
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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
