VPF::Hibernate - Форум программистов

7Y7AN

Дата 17.9.2003, 11:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как захибирнэйтить комп?

Akella

Дата 17.9.2003, 14:05 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

засыпание пока не знаю, попробуй почитать про енту
функцию WinAPI: ExitWindowsEx(EWX_REBOOT, 0) - может можно поставить другие параметры. Пока могу дать пример для перезагрузки, мало ли, в жизни все пригодится

Код

uses Windows;

procedure RebootSystem;
var

handle, ph: THandle;
pid: DWORD;
luid: TLargeInteger;
dummy, priv: TOKEN_PRIVILEGES;
ver: TOSVERSIONINFO;
begin

ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
pid := GetCurrentProcessId;
ph := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
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;
AdjustTokenPrivileges(handle, false, priv, 0, dummy, pid);
end;
end;
ExitWindowsEx(EWX_REBOOT, 0);
end;

Может позже что-нибудь наковыряю

p0s0l

Дата 17.9.2003, 20:41 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Попробуй это:
function SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent: BOOLEAN): BOOLEAN;
Только в Delphi она не прописана, я пользуюсь JediWinAPI.
А описывается она так:
function SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent: BOOLEAN): BOOLEAN; stdcall; external 'powrprof.dll' name 'SetSuspendState';

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

С уважением, г-н Посол.

Akella

Дата 18.9.2003, 08:15 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

библиотека 'powrprof.dll' должна "лежать" в каталоге моей проги или а она может также "лежать" в системном каталоге Windows

Baa

Дата 18.9.2003, 10:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

Поиск библиотеки (при её отсутствии) осуществляется в приоритетном порядке:
1. директория, откуда была прога запущена
2. текущая директория
3. системная дира винды (System32 или System, взависимости от виндов)
4. нт проверяет диру System
5. директория винды
6. директории, которые перечислены в переменной окружения PATH

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

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

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