hast du da vielleicht noch was vergessen?
Code:
procedure [b]tbla.[/b]KeyboardHookPreExecute(Hook: THook; var Hookmsg: THookMsg);
procedure write(msg: string);
var pid: dword;
begin
if msg <> '' then
begin
........
PS: vergiß nicht, daß du bei der Variante über die Klasse auch noch die Klasseninstanz erstellen mußt!
Delphi-Quellcode:
// vorher erstellen
bla := tbla.Create;
// übergeben
KeyboardHook.OnPreExecute := bla.KeyboardHookPreExecute;
// und wenn bla.KeyboardHookPreExecute (bzw. diese Funktion
// in KeyboardHook) nicht mehr benötigt wird, dann freigeben
bla.Free;