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

1 files changed, 4 insertions, 4 deletions

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;