Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как выключить комп [D6, WinXP]


Groove ©   (2002-06-09 12:08:00) 

Люди, помогите выключить программой комп. Заранее спасибо.


Странный Прохожий   (2002-06-11 19:39:00) [1]

Можно взять дискетку, записать на нeё программу, потом вытащить и её уголком нажать на клавишу Power системного блока :)


easy   (2002-06-10 16:25:00) [2]

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;


doomin   (2002-06-10 12:26:00) [3]

На www.dragonsoft.spb.ru есть компонента WinExit. Работает корректно под Win2000. Под XP не пробовали


SPeller   (2002-06-10 09:26:00) [4]

ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN,0);


CD   (2002-06-10 00:49:00) [5]

ExitWindowsEx (1&2&3,0)
Короче, попробуй вместо первого параметра цифирку 1-8 или их комбинацию, как показал


Song   (2002-06-09 16:44:00) [6]

Всё там есть.
И я на этот вопрос отвечал два дня назад. Смотрите в конференции в этом разделе.


Groove   (2002-06-09 15:18:00) [7]

Да нет, я там искал, там ни чё не работает. Умя Windows XP, в нём просто выкидывает в меню где выбирать пользователя, тоже самое с перезагрузкой.Мне нужно выключить комп. Что делать??


Song   (2002-06-09 12:50:00) [8]

В FAQ.


Наверх

Титульная страница Поиск, карта сайта Написать письмо