Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как програмно выключить компьютер? [D6, WinXP]

berezne © (2004-12-20 17:15:00)
Привет!!!
Делаю для себя небольшую програмулину и нужно, чтоби по завершении задачи компьютер автоматически отключился.
Подскажите как програмно выключить компьютер???

Заранее спасиба всем за ответы.

grom (2004-12-20 19:34:00) [1]
procedure TForm1.Button6Click(Sender: TObject);
var
hToken: THandle;
tkp: _TOKEN_PRIVILEGES;
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;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken,false,tkp,0,nil,returnLength)then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;
end;
Для ХР

berezne (2004-12-20 17:43:00) [2]
>>> например кодирования видео которое шло 8 часов и оставалось то всего пара минут :-)

Как раз этим и занимаюсь. Так что я думаю что все будео ок

berezne (2004-12-20 17:41:00) [3]
>>> например кодирования видео которое шло 8 часов и оставалось то всего пара минут :-)

Как раз этим и занимаюсь. Так что я думаю что все будео ок

redlord (2004-12-20 17:28:00) [4]
задай этот вопрос яндексу он знает и даже исходники даст :-)
тока вырубая комп ты можеш конкретно обламать какуюнить прогу
например кодирования видео которое шло 8 часов и оставалось то всего пара минут :-)

Наверх

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