diff options
author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-06 19:40:06 +0000 |
---|---|---|
committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-06 19:40:06 +0000 |
commit | a1a9c43dcd6f61610eb3afea542aec5de5dabf30 (patch) | |
tree | 8a52fcb122ea41d32a81f04cf365a1064be79fee /Game/Code/Classes/UServices.pas | |
parent | eee3f173ec616e89dea23d4aa192e68587eea148 (diff) | |
download | usdx-a1a9c43dcd6f61610eb3afea542aec5de5dabf30.tar.gz usdx-a1a9c43dcd6f61610eb3afea542aec5de5dabf30.tar.xz usdx-a1a9c43dcd6f61610eb3afea542aec5de5dabf30.zip |
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
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UServices.pas | 4 |
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; |