Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

Перезагрузка Windows Xp   Найти похожие ветки 

← →
Qwet   (2004-01-10 20:49) [0]

Подскажите где можно прочитать про Выключение и перезагрузку в Windows Xp? а то пару примеров читал и в 98 они просто Explorer презагружают.

подскажите плиз если можно дайте ссылку

---

← →
Rauf ©   (2004-01-11 00:40) [1]

Во перегружают NT/2K/XP

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/shutting_down.asp

В 98 используй только
ExitWindowsEx с параметрами
EWX_POWEROFF
EWX_REBOOT
EWX_LOGOFF
EWX_FORCE

ExitWindowsEx( EWX_REBOOT | EWX_FORCE, 0 )

---

← →
raidan ©   (2004-01-11 13:53) [2]

Разберешься?

function doneNT(shut:boolean):integer;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;

begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege",tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1; // one privelege to set
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then begin
if shut then
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0) else
ExitWindowsEx(EWX_REBOOT,0);
result:=0;
end else result:=-2;
end else result:=-1;
end;

---

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

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c