Hook

[derseitzer]

Hallo,
Ich möchte mich mit Hooks beschäftigen und einfach etwas dazulernen und nun habe ich aus einem Video diesen Code programmiert und eine "DDetours-Library" hinzugefügt.

Code:

var
HookedExitProcess: function(Cardinal: integer) : PVOID; stdcall = nil;

function myExitProcess(Cardinal: integer) : PVOID; stdcall;
begin
  Result:= nil;
end;


procedure TForm1.HookExitProcessClick(Sender: TObject);
begin
if not Assigned (HookedExitProcess) then
begin
  @HookedExitProcess:= Interceptcreate(@ExitProcess, @myExitProcess);
end;

end;

procedure TForm1.CallExitProcessClick(Sender: TObject);
begin
ExitProcess(0);
end;

procedure TForm1.UnhookExitProcessClick(Sender: TObject);
begin
if Assigned (HookedExitProcess) then
begin
  Interceptremove(@HookedExitProcess);
  HookedExitProcess:=nil;
end;

end;

Hier verhindere ich das verlassen eines Prozesses, aber wie kann ich nun Tastendrücke, Mausdrücke oder ähnliches verhindern?
MFG
derseitzer