Вывести диалог завершения работы Windows

Delphi , Программа и Интерфейс , Диалоги и Фреймы

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

{ 
To programmatically shut down Windows, you can use the ShutdownWindows method. 
Running the code 
}


 uses ComObj;

 {....}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   shell: Variant;
 begin
   shell := CreateOleObject('Shell.Application');
   shell.ShutdownWindows;
 end;


 { has the same result as clicking Shut Down in the Start menu. }

Перевод:

Код-набор, представленный ниже, отображает диалоговое окно отключения Windows:

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  shell: Variant;
begin
  shell := CreateOleObject('Shell.Application');
  shell.ShutdownWindows();
end;

Когда кнопка нажата, она будет имитировать действие клика по пункту "Отключить" в меню "Пуск". Это означает, что появится диалоговое окно отключения, запрашивающее, хотите ли вы отключить или перезапустить свой компьютер.

Обратите внимание, что данный код требует активной связи с интернетом и Windows XP Service Pack 2 или более поздней версии для корректной работы. Также, пожалуйста, будьте осторожны при использовании такого кода, так как он может потенциально привести к потере данных в случае неправильного использования.

В статье описывается способ программного закрытия Windows с помощью метода ShutdownWindows, который позволяет выполнить задачу аналогично клику по пункту 'Выключить' в меню 'Пуск'.

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

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

:: Главная :: Диалоги и Фреймы ::