Comando pra desligar o computador

Delphi

10/04/2005

Por favor, alguém pode me dizer o camando pra desliga o computador e algum pra finaliza todos os aplicativos em execução?

Talvez essa pergunta seja meio idiota, mas eh q sou inicante ainda.
VLW



:arrow: [color=red:af5de5ed2c]Título alterado por oTTo. Removido ´por favor´.[/color:af5de5ed2c]


Sérgio Gobbo

Sérgio Gobbo

Curtidas 0

Respostas

Sérgio Gobbo

Sérgio Gobbo

10/04/2005

Foi mal ter repetido o post... eh q qdo tava postando na primeira vez deu pau no pc e tive q desliga, num sabia q tinha completado a operação.

Foi mal msm, isso naum vai mais acontece. Por favor... algum moderador pode fecha o topico.


GOSTEI 0
Sanses

Sanses

10/04/2005

tente assim

var
TokenPriv : TTokenPrivileges;
Tamanho : DWord;
HToken : THandle;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,HToken);
LookUpPrivilegeValue(NIL, ´SeShutdownPrivilege´, TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
Tamanho := 0;
AdjustTokenPrivileges(HToken, FALSE, TokenPriv, 0, PTokenPrivileges(NIL)^, Tamanho);
CloseHandle(HToken);
ExitWindowsEx(EWX_FORCE + EWX_POWEROFF, 0);
application.terminate;
end;

Sanses


GOSTEI 0
Mordred

Mordred

10/04/2005

Tem como fazer isso usando CLX? É possível chamar APIs através de uma aplicação CLX?


GOSTEI 0
POSTAR