From a1a9c43dcd6f61610eb3afea542aec5de5dabf30 Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Tue, 6 Nov 2007 19:40:06 +0000 Subject: Some changes to PluginInterface to fit with 64 Bit Systems. lParam is maily for use as Pointer, therefore standardtype: Pointer. wParam should mainly be used for ordinals. (Integer or Int64 on 64Bit Systems). Don't return addresses. Result is not assured to be Int64 on 64 Bit Systems. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@592 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UPluginInterface.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Game/Code/Classes/UPluginInterface.pas') diff --git a/Game/Code/Classes/UPluginInterface.pas b/Game/Code/Classes/UPluginInterface.pas index 56293848..6a83d7c3 100644 --- a/Game/Code/Classes/UPluginInterface.pas +++ b/Game/Code/Classes/UPluginInterface.pas @@ -26,7 +26,7 @@ uses uPluginDefs; {Function start calling the Hook Chain 0 if Chain is called until the End, -1 if Event Handle is not valid otherwise Return Value of the Hook that breaks the Chain} - Function NotivyEventHooks (hEvent: THandle; wParam, lParam: dWord): integer; stdcall; + Function NotivyEventHooks (hEvent: THandle; wParam: TwParam; lParam: TlParam): integer; stdcall; {Function Hooks an Event by Name. Returns Hook Handle on Success, otherwise 0} @@ -51,7 +51,7 @@ uses uPluginDefs; {Function Calls a Services Proc Returns Services Return Value or SERVICE_NOT_FOUND on Failure} - Function CallService (ServiceName: PChar; wParam, lParam: dWord): integer; stdcall; + Function CallService (ServiceName: PChar; wParam: TwParam; lParam: TlParam): integer; stdcall; {Function Returns Non Zero if a Service with the given Name Exists, otherwise 0} @@ -84,7 +84,7 @@ end; // 0 if Chain is called until the End, -1 if Event Handle is not valid // otherwise Return Value of the Hook that breaks the Chain //--------------- -Function NotivyEventHooks (hEvent: THandle; wParam, lParam: dWord): integer; stdcall; +Function NotivyEventHooks (hEvent: THandle; wParam: TwParam; lParam: TlParam): integer; stdcall; begin Result := Core.Hooks.CallEventChain(hEvent, wParam, lParam); end; @@ -139,7 +139,7 @@ end; // Function Calls a Services Proc // Returns Services Return Value or SERVICE_NOT_FOUND on Failure //--------------- -Function CallService (ServiceName: PChar; wParam, lParam: dWord): integer; stdcall; +Function CallService (ServiceName: PChar; wParam: TwParam; lParam: TlParam): integer; stdcall; begin Result := Core.Services.CallService(ServiceName, wParam, lParam); end; -- cgit v1.2.3