Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Delphi"   >>>
inc-viz [2011-05-22 19:15:52]
Подскажите как выключить компьютер
Нужно отключить комп в заданное время.
Просьба сабжа. пыво

Antorius [2011-05-23 01:52:50]    [1]
Программы\Стандартные\Служебные\Назначенные задания
Добавить задание windows/system32/shutdown.exe
Выставить нужные параметры времени, даты и дней и если нету пароля админа, то поставить флажок "Выполнять только при вхождении в систему".
Ну и все вроде язык

Nick [2011-05-23 12:21:20]    [2]
Программа power off

Nick [2011-05-23 12:22:25]    [3]
Программа повер офф

inc-viz [2011-05-23 17:26:36]    [4]
Спасибо, но мне нужно программно выключить.

2Antorius
пробовал запускать через ShellExecute и WinExec, открывается окно командной оболочки и... ничего.

Man in Black ® [2011-05-23 18:55:31]    [5]
Код работает на всех платформах win32


var
handle, ph: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
dummy: PTokenPrivileges;
ver: TOSVERSIONINFO;
begin
ph:=GetCurrentProcess;
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then
begin
  if OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) then
     if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
     begin
       priv.PrivilegeCount := 1;
       priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
       priv.Privileges[0].Luid := luid;
       dummy := nil;
       AdjustTokenPrivileges(handle, false, priv, 0, dummy^, n);
     end;
end;
ExitWindowsEx(EWX_FORCE or EWX_POWEROFF or EWX_SHUTDOWN,0);
end;


Для выключения в опр. время, пользуйтесь TTаймером и TDateTimeя улыбаюсь


ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



приветя улыбаюсьхадаподмигиваюя тащусьмое почтениесчастливоцелуюбухаемужас
не понялплачуфупечальзлойстесняюсьсогласеннетгыкурю
суперязыкмузонпыворыдаю


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru