Faça assim...
Winexec ( 'c:\windows\system32\shutdown.exe -t 0 -s' , SW_HIDE );
E pronto... você pode ainda configurar para mostrar mensagens ao
desligar.... colocar tempo... etc.....
Wesley
----- Original Message -----
From: Cleber(Telefonica)
To: [email protected]
Sent: Thursday, November 22, 2007 7:14 AM
Subject: Re: [delphi-br] DESLIGAR O WINDOWS
Bom dia SampaioBrito,
Acho que este código vai ajudar você.
Function TForm1.DesligaWindows(ReBootParam: LongWord): Boolean;
Var
Resultado :Boolean;
TTokenHD :THandle;
TToKenPvg, RTTokenPvg :TTokenPrivileges;
CbtpPrevisao, PcbtpPrevisaoRequerida :DWord;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
Resultado:=OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, TTokenHD);
if Resultado then
begin
Resultado:=LookupPrivilegeValue(Nil, SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount:=1;
TTokenPvg.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
CbtpPrevisao := SizeOf(RTTokenPvg);
PcbtpPrevisaoRequerida :=0;
if Resultado then
Windows.AdjustTokenPrivileges(TTokenHD, False, TTokenPvg, CbtpPrevisao,
RTTokenPvg, PcbtpPrevisaoRequerida);
end;
end;
Result:=ExitWindowsEx(RebootParam,0);
end;
Para executar isso:
DesligaWindows(EWX_POWEROFF or EWX_FORCE);
Flw, qq dúvida manda ae
Abraço,
Cleber.
----- Original Message -----
From: sampaiobrito
To: [email protected]
Sent: Wednesday, November 21, 2007 6:43 PM
Subject: [delphi-br] DESLIGAR O WINDOWS
COMO DESLIGAR O WINDOWS XP.... ALGUÉM SABE ALGUMA FUNÇÃO...
TENTEI USAR ExitWindowsEx(EWX_FORCE, 0) com vários parâmetros e tudo
que conseguir foi finalizar a sessão atual....
Alguém pode dar uma forcinha?
__________ Informação do NOD32 1.852 (20040828) __________
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.3/1144 - Release Date: 21/11/2007
16:28
[As partes desta mensagem que não continham texto foram removidas]
