Как вызвать 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