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