Приостановить ПК

Delphi , ОС и Железо , Компьютер

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

SetSystemPowerState(False, True);  //Forces the system down 
SetSystemPowerState(True, False); //Makes a "soft" off 

Перевод на русский язык:

Код на Delphi для программного отключения или перезапуска компьютера. Вот подробное описание того, что он делает:

1. SetSystemPowerState(False, True);:
   • Эта строка устанавливает состояние системы в "down" (то есть forcing the system to shut down).
   • Первый параметр (False) указывает, что система должна быть отключена немедленно.
   • Второй параметр (True) specifies that a shutdown is requested.
2. SetSystemPowerState(True, False);:
   • Эта строка устанавливает состояние системы в "soft off" (то есть makes a soft restart).
   • Первый параметр (True) указывает, что система должна быть перезапущена нормально.
   • Второй параметр (False) specifies that no reboot is requested.

В других словах, первый вызов forcing immediate shutdown, а второй вызов инициирует normal restart без forcing immediate shutdown.

Обратите внимание: эти функции являются частью Windows API и требуют административных привилегий для успешного выполнения. Кроме того, эти вызовы могут не работать на всех системах или в определенных условиях (например, если система уже отключена или находится в ошибочном состоянии).

Если вы ищете альтернативное решение, вы можете рассмотреть использование метода Application.Terminate, который будет прекратить работу вашего приложения Delphi, но не отключит всю систему.

Вот упрощенный пример использования этого метода:

uses
   ..., Windows;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Application.Terminate;
end;

Этот код прекратит работу текущего экземпляра вашего приложения Delphi, но не повлияет на другие процессы или компоненты системы.

Программист DeeCo предлагает код на языке Delphi для приостановки компьютера, включая функцию мягкой отключения системы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компьютер ::