Скачать: CL | DM;

Как выключить или перезагрузить WinXp   Найти похожие ветки 

← →
Orcy   (2003-02-22 01:57) [0]

Как выключить или перезагрузить WinXp
ExitWindowsEx(EWX_SHUTDOWN,1) не работает

---

← →
Song ©   (2003-02-22 04:00) [1]

AdjustTokenPriviligies()

---

← →
Acidy ©   (2003-02-22 10:33) [2]

В факе есть как машину под НТ выключить...

---

← →
Evgeny_R   (2003-02-22 17:38) [3]

uses Windows, messages;

procedure RebootSystem;
var
handle_: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize:=Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, handle_) then if LookupPrivilegeValue( nil, "SeShutdownPrivilege", luid) then
begin priv.PrivilegeCount := 1;
priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid := luid;
AdjustTokenPrivileges(handle_, false, priv, 0, nil, n); end
else
writeln("Ошибка")
else writeln("Ошибка "); end else writeln("Ошибка "); if not ExitWindowsEx(EWX_POWEROFF,1) then writeln("Ошибка"); end;
begin
RebootSystem;
end.

---

← →
Ich Hasse ©   (2003-02-22 17:39) [4]

именно так

---

← →
Orcy   (2003-02-24 23:55) [5]

Спасибо все работает как часы

---

← →
Acidy ©   (2003-02-25 08:59) [6]

это уже избитая сто раз тема.......
народ .......... ну для чего существует фак?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c