aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UHooks.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/UHooks.pas')
-rw-r--r--Game/Code/Classes/UHooks.pas10
1 files changed, 5 insertions, 5 deletions
diff --git a/Game/Code/Classes/UHooks.pas b/Game/Code/Classes/UHooks.pas
index c30803f7..3e22bc75 100644
--- a/Game/Code/Classes/UHooks.pas
+++ b/Game/Code/Classes/UHooks.pas
@@ -54,13 +54,13 @@ type
Function AddSubscriber (const EventName: PChar; const Proc: TUS_Hook = nil; const ProcOfClass: TUS_Hook_of_Object = nil): THandle;
Function DelSubscriber (const hSubscriber: THandle): Integer;
- Function CallEventChain (const hEvent: THandle; const wParam, lParam: LongWord): Integer;
+ Function CallEventChain (const hEvent: THandle; const wParam: TwParam; lParam: TlParam): Integer;
Function EventExists (const EventName: PChar): Integer;
Procedure DelbyOwner(const Owner: Integer);
end;
-function HookTest(wParam, lParam: DWord): integer; stdcall;
+function HookTest(wParam: TwParam; lParam: TlParam): integer; stdcall;
var
HookManager: THookManager;
@@ -318,7 +318,7 @@ end;
// CallEventChain - Calls the Chain of a specified EventHandle
// Returns: -1: Handle doesn't Exist, 0 Chain is called until the End
//------------
-Function THookManager.CallEventChain (const hEvent: THandle; const wParam, lParam: LongWord): Integer;
+Function THookManager.CallEventChain (const hEvent: THandle; const wParam: TwParam; lParam: TlParam): Integer;
var
EventIndex: Cardinal;
Cur: PSubscriberInfo;
@@ -421,10 +421,10 @@ begin
end;
-function HookTest(wParam, lParam: DWord): integer; stdcall;
+function HookTest(wParam: TwParam; lParam: TlParam): integer; stdcall;
begin
Result := 0; //Don't break the chain
- Core.ShowMessage(CORE_SM_INFO, Integer(PChar(String(PChar(Pointer(lParam))) + ': ' + String(PChar(Pointer(wParam))))));
+ Core.ShowMessage(CORE_SM_INFO, PChar(String(PChar(Pointer(lParam))) + ': ' + String(PChar(Pointer(wParam)))));
end;
end.