Как вызвать Shutdown Windows dialog?

Материал из DRKB

Как вызвать Shutdown Windows dialog?[править | править код]

uses ComObj;

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


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 01211



{ **** UBPFD *********** by kladovka.net.ru ****
>> Открытие диалогового окна "Завершение работы Windows"

Зависимости: Windows, Messages

Copyright:   Gua
Дата:        18 июля 2002 г.
********************************************** }

procedure ShutDownWindow;
begin
  SendMessage(FindWindow('Progman', 'Program Manager'), WM_CLOSE, 0, 0);
end;


Source: kladovka.net.ru
ID: 01212