Fórum Comando pra desligar o computador #276445
10/04/2005
0
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]
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
Curtir tópico
+ 0
Responder
Posts
10/04/2005
Sérgio Gobbo
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.
Foi mal msm, isso naum vai mais acontece. Por favor... algum moderador pode fecha o topico.
Responder
Gostei + 0
11/04/2005
Sanses
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
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
Responder
Gostei + 0
27/09/2005
Mordred
Tem como fazer isso usando CLX? É possível chamar APIs através de uma aplicação CLX?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)