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

Опубиковано: 14.07.2008 г., автор: , просмотров: 27332

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

В данном микроскопическом уроке я покажу вам как программно можно вызвать окно Завершение работы 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. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.



Похожие материалы

Последние из рубрики

Аполлон 08 Dec 2009 в 00:00 #
А как выключить?
Klever 06 Nov 2009 в 00:00 #
Исходник отличный)) автору респект!!
МТ-37 14 May 2009 в 00:00 #
А можно поподробней узнать про все параметры процедуры FindWindow?
PIRAMIDA 28 Apr 2009 в 00:00 #
круто ;=)
-м- 20 Oct 2008 в 00:00 #
такой код невозможно откудато взять его элементарно самому сделать.
функция FindWindow ищет окно с заголовком которое в ней указано. после чего с помощью стандартной АПИ функции SendMessage мы найденому окну посылаем команду закрыться WM_CLOSE. с помощью этой функции можно посылать команды любому окну или компаненту.

ОтменитьДобавить комментарий