Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Перехватывать сообщения Windows до Application.Run

Пример проекта показывает, как получить и обработать сообщения Windows до Application.Run. Это редкий случай, в большинстве случаев переопределение процедуры Application.OnMessage будет делать то же самое.


 program Project1;
 
 uses
   Forms,
   Unit1 in 'UNIT1.PAS' { Form1 },
   Messages, WinTypes, WinProcs,
 
 {$R *.RES}
 
 var
   OldWndProc: TFarProc;
 
 function NewWndProc(hWndAppl: HWnd; Msg, wParam: Word; lParam: Longint):
   Longint; export;
 begin
   { default WndProc return value }
   Result := 0;
   { handle messages here; the message number is in Msg }
   Result := CallWindowProc(OldWndProc, hWndAppl, Msg, wParam, lParam);
 end;
 
 begin
   Application.CreateForm(TForm1, Form1);
   OldWndProc := TFarProc(GetWindowLong(Application.Handle, GWL_WNDPROC));
   SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(@NewWndProc));
   Application.Run;
 end.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS