VPF::WindowsExitEx для ХР - Форум программистов

Wolnet

Дата 20.2.2005, 01:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Поможіть хто знає почав писати програму, коли виявилося що для ХР старі строки не підходять.

Alex

Дата 20.2.2005, 03:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Код


// -----------------------------------------------------------------
  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;
// -----------------------------------------------------------------
function SystemShutdown: Boolean;
// Выключить компьютер
begin
  Result:= MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;
// -----------------------------------------------------------------
function SystemReboot: Boolean;
// Перезагрузить компьютер
begin
  Result:= MyExitWindows(EWX_REBOOT or EWX_FORCE);
end;
// -----------------------------------------------------------------

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

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