| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Выключение компьютера под XP [D6]
SkierMax © (2005-01-25 08:33:00)Добрый день всем - подскажите - как выключать комп и перезагружать его под XP- под 98 работала ExitWindowsEx()-под XP
не выходит :-(
И ещё - а как перезагрузить в эмуляции dos?(98 и XP)
Заранее благодарен.
grom (2005-01-25 20:47:00) [1]http://micsoft.narod.ru/bonus.html
программа для выключения(перезагрузки) компьютера или завершения сеанса.
MR. Exx (2005-01-25 14:11:00) [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;
CHES (2005-01-25 08:40:00) [3]http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15
В хелпе по SDK пример есть. И вообще, яндекс найдется все.
| |
