--- Em [email protected], "BandaLemuel" <[EMAIL PROTECTED]>
escreveu
>
>
> 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]
>
GALERA OBRIGADO!
