Как програмно выключить компьютер?

← →
berezne (2004-12-20 17:15) [0]

Привет!!!
Делаю для себя небольшую програмулину и нужно, чтоби по завершении задачи компьютер автоматически отключился.
Подскажите как програмно выключить компьютер???

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

← →
redlord (2004-12-20 17:28) [1]

задай этот вопрос яндексу он знает и даже исходники даст :-)
тока вырубая комп ты можеш конкретно обламать какуюнить прогу
например кодирования видео которое шло 8 часов и оставалось то всего пара минут :-)

← →
berezne (2004-12-20 17:41) [2]

>>> например кодирования видео которое шло 8 часов и оставалось то всего пара минут :-)

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

← →
berezne (2004-12-20 17:43) [3]

← →
grom (2004-12-20 19:34) [4]

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;
Для ХР

Как програмно выключить компьютер? Найти похожие ветки