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

Выключение компьютера под 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
программа для выключения(перезагрузки) компьютера или завершения сеанса.

---

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

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



Память: 0.45 MB
Время: 0.046 c