Hmmm... soweit ich sehe nutzt er nur einen Windows-Hook dazu, um Code in jedes Programm das Window-Messages empfangen kann zu bekommen. Dieser Code Hookt dann erst die
API-Funktionen.
Das Problem bei dieser Methode ist jedoch, dass in alle Programme die Window-Messages nicht empfangen können auch die
API-Hooks nicht reininjeziert werden.
Aber trozdem ganz netter Code... interessante Idee...
Edit: Die GetMsgProc söllte (glaub ich mal) eigendlich so aussehen:
Delphi-Quellcode:
function GetMsgProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
begin
Result := CallNextHookEx(HookHandle, code, wparam, lparam);
end;