VPF::Свернуть все окна - Форум программистов

0LineGate

Дата 3.6.2007, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2

Нужно свернуть, а по возможности закрыть ВСЕ окна, кроме окна моего приложения... т.е. Как получить хендлы остальных "видимых" окон?

Sunvas

Дата 3.6.2007, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 2
Всего: 89

Получение:

Код


procedure TForm1.Button1Click(Sender: TObject);
VAR wnd : hWnd;
begin
wnd := GetWindow(Handle, gw_HWndFirst);
while wnd <> 0 do
if (Wnd <> Application.Handle) and {-Собственное окно}
IsWindowVisible(Wnd) AND {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) then {-Дочернии окна}
 begin
 //в wnd храниться хэндл открытого окна.
 wnd := GetWindow(wnd, gw_hWndNext);
 end;
end;

А как закрыть - поищи в ДРКБ.

Это сообщение отредактировал(а) Sunvas - 3.6.2007, 21:59

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0LineGate

Дата 3.6.2007, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2

CloseWindow и ShowWindow... Спасибо, Sunvas, попробую..

Poseidon

Дата 4.6.2007, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

"Свернуть" все окна можно так:

Код


uses
ComObj

procedure MinimizeAll;
var
   Shell : OleVariant;
begin
   Shell := CreateOleObject('Shell.Application') ;
   Shell.MinimizeAll;
end;

потом можешь просто восстановить свое.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0LineGate

Дата 5.6.2007, 23:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2

Зачот! Лови + smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »