Выключение компьютера под XP

← →
SkierMax (2005-01-25 08:33) [0]

Добрый день всем - подскажите - как выключать комп и перезагружать его под XP- под 98 работала ExitWindowsEx()-под XP
не выходит :-(
И ещё - а как перезагрузить в эмуляции dos?(98 и XP)
Заранее благодарен.

← →
CHES © (2005-01-25 08:40) [1]

http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15

В хелпе по SDK пример есть. И вообще, яндекс найдется все.

← →
MR. Exx (2005-01-25 14:11) [2]

Вот для выключения компа под XP:

procedure ShutdownComputer;
var
ph: THandle;
tp, prevst: TTokenPrivileges;
rl: DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, ph);
LookupPrivilegeValue(nil, "SeShutdownPrivilege", tp.Privileges[0].Luid);
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := 2;
AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

← →
grom (2005-01-25 20:47) [3]

http://micsoft.narod.ru/bonus.html
программа для выключения(перезагрузки) компьютера или завершения сеанса.

Выключение компьютера под XP Найти похожие ветки