Forum: Object-Pascal / Delphi-Language
Delphi
by Flocke,
28. Aug 2005
Eher so (auf dein erstes Beispiel angewendet, ungetestet):
TTastaturStatistik = class(TObject)
//Tastatur
private
FOverAll: Int64;
HookHandle: Cardinal;
FCallback: Pointer;
//Set-Methoden
procedure SetKeyHits(New: Int64);
//Hook
Forum: Object-Pascal / Delphi-Language
Delphi
by Flocke,
28. Aug 2005
@Nico: :thumb: natürlich wesentlich besser, da nicht eben so hingehackt 8)
Forum: Object-Pascal / Delphi-Language
Delphi
by Flocke,
28. Aug 2005
Du kannst es ähnlich machen wie Delphi mit den Fensterprozeduren. Dazu solltest du dir mal den Code zu "MakeObjectInstance" in Classes.pas ansehen.
Du brauchst in Assembler einen Stub wie:
pop eax // Rücksprungadresse runter
push Self // Self auf den Stack legen (32-Bit Wert / Zeiger)
push eax // Rücksprungadresse wieder drauf
jmp TTastaturStatistik.LLKeyboardHookProc