VPF::проблема с выулючением компа - Форум программистов

SneG0K

Дата 10.12.2007, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 1
Всего: 54

Значит выходит такая проблема... решил я написать для себя любимого таймер выключения компа... ну все как полагается, текстовое поле для ввода времени, кнопка, таймер и.т.! в событие таймера пишу ExitWindowsEx(EWX_SHUTDOWN,0); и вот если таймер работает минуту или две, то комп вырубается, а если таймер работает тогда, когда вылезла заставка, то так и будет работать smile

обьясните мне в чем проблема??? smile

а то голова уже кругом еде smile

Pavelbej

Дата 10.12.2007, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Так в событии таймера, отключай сначала сам таймер а потом уже выключай. Я например пользуюсь этим, и проблем не возникало.

Код


function MyExitWindows(RebootParam: Longword): Boolean;
var 
  TTokenHd: THandle; 
  TTokenPvg: TTokenPrivileges; 
  cbtpPrevious: DWORD; 
  rTTokenPvg: TTokenPrivileges; 
  pcbtpPreviousRequired: DWORD; 
  tpResult: Boolean; 
const 
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; 
begin 
  if Win32Platform = VER_PLATFORM_WIN32_NT then 
  begin 
    tpResult := OpenProcessToken(GetCurrentProcess(), 
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, 
      TTokenHd); 
    if tpResult then 
    begin 
      tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1; 
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; 
      cbtpPrevious := SizeOf(rTTokenPvg); 
      pcbtpPreviousRequired := 0; 
      if tpResult then 
        Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg, cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

Код


procedure TForm1.Timer2Timer(Sender: TObject);
begin
    MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;

SneG0K

Дата 10.12.2007, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 1
Всего: 54

так а весь прикол в том, что когда таймер ставиш на две минуты проблем не возникает, а когда на час-два, когда комп перейдет в ждущий режим, то он и будет работать, пока не вырубеш....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »