Einfaches Hook-Beispiel

[retnyg]

Delphi-Quellcode:

function InstallHook(Hwnd: Cardinal): Boolean; stdcall; external 'KeyboardHook.dll';
function UninstallHook: Boolean; stdcall; external 'KeyboardHook.dll';

proc button1click:
if InstallHook(handle) then UninstallHook;