hooks createn in einer konsolen-anwendung

[himitsu]

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;