Как вызвать Shutdown Windows dialog? |
Previous Top Next |
Code: |
uses ComObj;
{....}
procedure TForm1.Button1Click(Sender: TObject); var shell: Variant; begin shell := CreateOleObject('Shell.Application'); shell.ShutdownWindows; end; |
©Drkb::01211
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Code: |
{ **** UBPFD *********** by kladovka.net.ru **** >> Открытие диалогового окна "Завершение работы Windows"
Зависимости: Windows,Messages Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol Copyright: Gua Дата: 18 июля 2002 г. ********************************************** }
procedure ShutDownWindow; begin SendMessage(FindWindow('Progman','Program Manager'),WM_CLOSE,0,0); end; |
©Drkb::01212