Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.09.2011, 10:48   #1
sashaxD
Пользователь
 
Регистрация: 19.05.2011
Сообщений: 48
По умолчанию Приложение поверх всех окон

Вобщем нужно запретить стороннему приложению сворачиваться, как это сделать по средствам delphi? Известно имя окна и процесс.
sashaxD вне форума Ответить с цитированием
Старый 06.09.2011, 10:51   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Ставить хук в сторонне приложение на сообщение WM_SYSCOMMAND > SC_MINIMIZE
Человек_Борща вне форума Ответить с цитированием
Старый 06.09.2011, 20:02   #3
sashaxD
Пользователь
 
Регистрация: 19.05.2011
Сообщений: 48
По умолчанию

Можно по подробнее?
sashaxD вне форума Ответить с цитированием
Старый 06.09.2011, 20:06   #4
sashaxD
Пользователь
 
Регистрация: 19.05.2011
Сообщений: 48
По умолчанию

Все оказалось довольно проще =)

procedure TForm1.Button2Click(Sender: TObject);
var
H : HWND;
begin
H := FindWindow(nil,'имя окна');
PostMessage (H, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
end;

Вместо кнопки поставить таймер, и запихнуть туда этот код =)

Последний раз редактировалось sashaxD; 06.09.2011 в 20:26.
sashaxD вне форума Ответить с цитированием
Старый 08.09.2011, 01:21   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Преимущество хука в том что, пака ты dll с хуком не выгрузишь из АП, то хук там будет висеть ВСЕГда(Даже тогда, когда твоё ПО не работает)
Человек_Борща вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поверх всех окон timyr1997 Общие вопросы Delphi 12 05.08.2010 15:49
поверх всех окон blackstersl Общие вопросы Delphi 6 05.08.2010 15:36
поверх всех окон Temka Общие вопросы Delphi 4 31.05.2009 14:09
Поверх всех окон delphin100 Общие вопросы Delphi 2 19.04.2008 19:00
Поверх всех окон Патрон Общие вопросы Delphi 1 18.04.2008 16:57