Delphi, вызываем окно завершение работы Windows

[~Jack~]

В данном микроскопическом уроке я покажу вам как программно можно вызвать окно Завершение работы Windows.
Я надеюсь Delphi у вас уже открыт, поэтому кидаем на форму компонент Button с закладки Standart, создаем на нем обработчик событий OnClick.

Полный листинг обработчика событий OnClick:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);
end;

На этом всё!
До связи, DelphiExpert.ru

P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.