Перехват сообщений

[-Flasher-]

Здраствуйте, мне нужно перехватить сообщение чужого окна WM_CLOSE. Вот код:

var
 h:hWnd;
 Msg:TMsg;
begin
h:=FindWindow('WindowClass',nil); //Окно находит
while GetMessage(Msg,h,0,0) do
 begin
  if Msg.message=WM_CLOSE then
   MessageBox(h,'Text','Caption',MB_OK);
 end;
end;

Окно закрывается программа никак не реагирует...
Подскажите, где я допустил ошибку и как правильно сделать фильтрацию сообщений.

[Stilet]

где я допустил ошибку

Ты описал цикл получения сообщений для твоего приложения а для чужего нужно ставить хук.
Это много раз обсуждалось, так что ищи поиском по форуму на слово SetWindowsHookEx

Если не хочешь хуком.
То найдя окно, переопредели его оконную процедуру на свою функцией, я правда не помню возможно ли это так просто, но некоторые пепсы хвастались что смогли сделать это для чужего приложения.
Но лучше хук...

[-Flasher-]

А хук без Dll можно поставить, а то не охото довесок к программе делать.

[Stilet]

Насколько я знаю без ДЛЛ только на клавиатуру можно.

[TwiX]

Без ДЛЛ и клаву вроде нельзя. Ведь к каждому процессу в системе надо прикреплять свою ДДЛку

[Stilet]

Без ДЛЛ и клаву вроде нельзя.

Можно. По крайней мере WH_JOURNALPLAYBACK Hook можно.