Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Хук на создание окна 
V
    Опции темы
NOCaut
Дата 5.10.2011, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Нужно поставить хук на создание окна. Мой код работает , когда окно в фокусе, как поставить хук которий будет работать постоянно
Код

var
  SysHook:HHook;

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
Handle: HWND;
begin
Handle := FindWindow(nil,'Calculator');
  if Handle <> 0 then
  begin
     SendMessage(Handle,WM_CLOSE,0,0);
  end;
  Result:= CallNextHookEx(SysHook, Code, wParam, lParam);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  SysHook:=SetWindowsHookEx(WH_CBT, @SysMsgProc, HInstance, GetCurrentThreadID);
  MessageBox(Handle,'Повторное подключение',nil,16);
  UnhookWindowsHookEx(SysHook);
end;


Это сообщение отредактировал(а) NOCaut - 5.10.2011, 17:32
PM MAIL   Вверх
NOCaut
Дата 6.10.2011, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
http://forum.sources.ru/index.php?act=ST&a...12&t=342001
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0382 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.