|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2016, 13:21 | #1 |
Форумчанин
Регистрация: 23.11.2016
Сообщений: 100
|
как проверить свернуто ли окно
драсти помогите как проверить свернуто ли окно?
пример если открыто другое приложения notepad.exe тогда в своем проге memo1.enabled:=true; а если свернуто notepad.exe то memo1.enabled:=false; |
18.12.2016, 13:28 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
|
18.12.2016, 14:59 | #3 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Код с тем что вам предложили уже
Код:
Код:
Последний раз редактировалось Aliens_wolfs; 18.12.2016 в 15:20. |
18.12.2016, 16:38 | #4 |
Форумчанин
Регистрация: 23.11.2016
Сообщений: 100
|
хммм странно работает только один раз когда включаю notepad показывает в caption Развернуто а когда разварачиваю notepad ничего не происходит?
procedure TForm1.Timer3Timer(Sender: TObject); var HRect: TRect; FindHandle: HWND; begin if FindWindow(nil, 'Notepad2') <> 0 then if FindHandle <> 0 then begin GetWindowRect(FindHandle, HRect); if (HRect.left + HRect.Top + HRect.Right + HRect.Bottom) > 180 then Begin memo1.enabled:=true; Caption:= 'Развернуто' end else begin memo1.enabled:=false; Caption:= 'Свернуто'; end; end else begin memo1.enabled:=true; Caption:= 'Нет окна'; end; |
18.12.2016, 16:46 | #5 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Попробуй с первым примером GetWindowPlacement. У меня и первый и второй примеры работают.
Этот код понадежнее будет Код:
Последний раз редактировалось Aliens_wolfs; 18.12.2016 в 16:58. |
18.12.2016, 19:58 | #6 |
Форумчанин
Регистрация: 23.11.2016
Сообщений: 100
|
спасибо вроде работает только с notepad а как сделать так чтобы работал с любым приложением ?.exe
|
18.12.2016, 20:12 | #7 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Почитай про FindWindow или поищи в интернете работа с чужими окнами в delphi и почитай
|
18.12.2016, 20:43 | #8 |
Форумчанин
Регистрация: 17.08.2009
Сообщений: 139
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как проверить прокси? | L6go1as | C# (си шарп) | 2 | 19.04.2014 19:57 |
Треугольное окно со сторонами A, B, C. Проверить, пройдёт ли в окно коробка цилиндрической формы (D и H) (паскаль) | ihimaru | Помощь студентам | 5 | 02.10.2011 22:11 |
Как проверить скрыто окно или нет? | BuT@JL | Общие вопросы Delphi | 9 | 13.11.2009 15:19 |
Как Как проверить кнопки мыши без OnMouseDown? | Вадим Буренков | Общие вопросы Delphi | 3 | 22.05.2009 15:08 |
По нажатию, каких сочетаний клавиш можно программно развернуть приложение, если оно свернуто в трее? | Johnny_B | Win Api | 1 | 04.06.2007 08:20 |