Синхронизация завершения работы WindowsDelphi , ОС и Железо , WindowsСинхронизация завершения работы Windows
Оформил: DeeCo { Diese Methode funktioniert nur auf Windows NT/2000/XP } { Works only on Windows NT/2000/XP systems } function TimedShutDown(Computer: string; Msg: string; Time: Word; Force: Boolean; Reboot: Boolean): Boolean; var rl: Cardinal; hToken: Cardinal; tkp: TOKEN_PRIVILEGES; begin //get user privileges to shutdown the machine, we are talking about win nt and 2k here if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then ShowMessage('Cannot open process token.') else begin if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then begin tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; tkp.PrivilegeCount := 1; AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl); if GetLastError <> ERROR_SUCCESS then ShowMessage('Error adjusting process privileges.'); end else ShowMessage('Cannot find privilege value.'); end; Result := InitiateSystemShutdown(PChar(Computer), PChar(Msg), Time, Force, Reboot) end; //Start shut down procedure TForm1.Button1Click(Sender: TObject); begin if not TimedShutDown('\\computername', 'you have to shutdown', 30, true, true) then ShowMessage('function failed...'); end; //Abort shut down procedure TForm1.Button2Click(Sender: TObject); begin AbortSystemShutdown('\\computername'); end; Статья Синхронизация завершения работы Windows раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |