Reboot, Shut Down, Ждущий режим и т.п. на Windows XP

← →
Tiger (2002-06-29 01:13) [0]

Раскажите что знаете, пожалуйста!!!

← →
REaliSt © (2002-06-29 05:04) [1]

Как и для всех остальных окошек:
ExitWindows, ExitWindowsEx
Смотри хелп по этим ф-циям (там должны также описываться особенности под WinNT, что тебе и нужно).

← →
[NIKEL] © (2002-06-29 05:12) [2]

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; // Example to shutdown Windows: procedure TForm1.Button1Click(Sender: TObject); begin MyExitWindows(EWX_POWEROFF or EWX_FORCE); end; procedure TForm1.Button1Click(Sender: TObject); begin MyExitWindows(EWX_REBOOT or EWX_FORCE); end;

А hybernate каким боком тут пришить?
Можно поинтересоваться
а также какое сообщение нужно ловить чтобы узнать вход и выход в/из hybernate

Reboot, Shut Down, Ждущий режим и т.п. на Windows XP Найти похожие ветки