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, 2 insertions, 2 deletions

diff --git a/Game/Code/Classes/UServices.pas b/Game/Code/Classes/UServices.pas
index 094c3fed..be1fcf2c 100644
--- a/Game/Code/Classes/UServices.pas
+++ b/Game/Code/Classes/UServices.pas
@@ -55,7 +55,7 @@ type
       Function AddService(const ServiceName: PChar; const Proc: TUS_Service = nil; const ProcofClass: TUS_Service_of_Object = nil): THandle;
       Function DelService(const hService: THandle): integer;
 
-      Function CallService(const ServiceName: PChar; const wParam, lParam: dWord): integer;
+      Function CallService(const ServiceName: PChar; const wParam: TwParam; lParam: TlParam): integer;
 
       Function NametoHash(const ServiceName: TServiceName): Integer;
       Function ServiceExists(const ServiceName: PChar): Integer;
@@ -210,7 +210,7 @@ end;
 // Function Calls a Services Proc
 // Returns Services Return Value or SERVICE_NOT_FOUND on Failure
 //------------
-Function TServiceManager.CallService(const ServiceName: PChar; const wParam, lParam: dWord): integer;
+Function TServiceManager.CallService(const ServiceName: PChar; const wParam: TwParam; lParam: TlParam): integer;
 var
   SExists: Integer;
   Service: PServiceInfo;