Qual comando uso para reiniciar a maquina?
Qual comando uso para reiniciar a maquina? :)
Jorge_huida
Curtidas 0
Respostas
Programadorjlle
22/02/2005
PROCURE USAR A PESQUISA :P
procedure TfMain.ShutDown;
var
TokenPriv: TTokenPrivileges;
H: DWORD;
HToken: THandle;
begin
Flag := EWX_POWEROFF;
(* WIN 2000 e NT *)
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, HToken);
LookUpPrivilegeValue(nil, ´SeShutdownPrivilege´,
TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
H := 0;
AdjustTokenPrivileges(HToken, False, TokenPriv, 0,
PTokenPrivileges(nil)^, H);
CloseHandle(HToken);
end;
ExitWindowsEx(EWX_FORCE or EWX_POWEROFF or EWX_SHUTDOWN, 0);
end;
procedure TfMain.ShutDown;
var
TokenPriv: TTokenPrivileges;
H: DWORD;
HToken: THandle;
begin
Flag := EWX_POWEROFF;
(* WIN 2000 e NT *)
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, HToken);
LookUpPrivilegeValue(nil, ´SeShutdownPrivilege´,
TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
H := 0;
AdjustTokenPrivileges(HToken, False, TokenPriv, 0,
PTokenPrivileges(nil)^, H);
CloseHandle(HToken);
end;
ExitWindowsEx(EWX_FORCE or EWX_POWEROFF or EWX_SHUTDOWN, 0);
end;
GOSTEI 0
Jorge_huida
22/02/2005
agora preciso de um help para o win2000 e xp :lol: :lol: :arrow: :roll:
GOSTEI 0