Cвернуть и развернуть чужое окно в Виндовс Делфи7 - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Примеры на Delphi7 [110]

Помощь по Delphi [12]

Описание процедур и т.п. на Delphi [7]

Главная » Статьи » Delphi » Примеры на Delphi7

Cвернуть и развернуть чужое окно в Виндовс Делфи7

Как на Delphi можно свернуть и развернуть чужое окно в Windows

Нам понадобится Timer(Sistem)

В событие OnTime Таймера, прописываем:

procedure TForm1.Timer1Timer (Sender: TObject);
var
h : HWND;
begin
h := GetWindow(Handle, GW_HWNDFIRST);
while h <> 0 do
begin
if (IsWindowVisible(h) and (GetWindow (h, GW_OWNER) = 0) and (GetParent(h) = 0))
then PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
h := GetWindow(h, GW_HWNDNEXT);
end;
end;

SC_MINIMIZE - свернуть окно в Windows

SC_MAXIMIZE - развернуть окно в Windows

Ну вот и все!!!

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (20.03.2011)

Просмотров: 2614 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума