D31v1d1 Postado Julho 26, 2005 Denunciar Share Postado Julho 26, 2005 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? Link para o comentário Compartilhar em outros sites More sharing options...
0 Kikonanet Postado Julho 26, 2005 Denunciar Share Postado Julho 26, 2005 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 Link para o comentário Compartilhar em outros sites More sharing options...
0 D31v1d1 Postado Julho 26, 2005 Autor Denunciar Share Postado Julho 26, 2005 Certinho valeu fera Link para o comentário Compartilhar em outros sites More sharing options...
0 Kikonanet Postado Julho 26, 2005 Denunciar Share Postado Julho 26, 2005 qualquer coisa estamos ai. Abs.Kiko Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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?
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados