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

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

← →
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]

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

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

---

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

---

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

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



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