Comando Para Desligar O Pc

[D31v1d1]

Bom tenho um software que é bem completo como se fosse um skin para window e tem um botão para desligar o computador, gostaria de saber qual comando para isso, alguém pode me ajudar?

[Kikonanet]

Olá,

Tenta essa função!

function WinExit(flags: integer): boolean;

function SetPrivilege(privilegeName: string; enable: boolean): boolean;
var tpPrev, tp : TTokenPrivileges;
     token : THandle;
    dwRetLen : DWord;
begin
result := False;
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or   TOKEN_QUERY, token);
 tp.PrivilegeCount := 1;
 if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then
 begin
   if enable then
     tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
   else
     tp.Privileges[0].Attributes := 0;
   dwRetLen := 0;
   result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen);
 end;
CloseHandle(token);
end;
begin
if SetPrivilege('SeShutdownPrivilege', true) then
begin
ExitWindowsEx(flags, 0);
SetPrivilege('SeShutdownPrivilege', False)
end;
winExit:= True;
end;

Para chamar:

WinExit(EWX_POWEROFF);

Abs.

Kiko

[D31v1d1]

Certinho valeu fera

[Kikonanet]

qualquer coisa estamos ai.

Abs.

Kiko