From bbcf30dc2e6ba03283441c9b76a8f56a1bf5f056 Mon Sep 17 00:00:00 2001 From: marco Date: Wed, 11 Feb 2009 16:26:45 +0000 Subject: [PATCH] * getactiveobject (and friends) missed stdcall, Mantis #13126 git-svn-id: trunk@12733 - --- packages/winunits-base/src/activex.pp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp index e9f5df3d9d..7f5df6968e 100644 --- a/packages/winunits-base/src/activex.pp +++ b/packages/winunits-base/src/activex.pp @@ -3826,9 +3826,9 @@ type ACTIVEOBJECT_STRONG = 0; ACTIVEOBJECT_WEAK = 1; - function RegisterActiveObject(unk: IUnknown; const clsid: TCLSID; dwFlags: DWORD; out dwRegister: culong): HResult; external oleaut32dll name 'RegisterActiveObject'; - function RevokeActiveObject(dwRegister: culong; pvReserved: Pointer) : HResult; external oleaut32dll name 'RevokeActiveObject'; - function GetActiveObject(const clsid: TCLSID; pvReserved: Pointer; out unk: IUnknown) : HResult; external oleaut32dll name 'GetActiveObject'; + function RegisterActiveObject(unk: IUnknown; const clsid: TCLSID; dwFlags: DWORD; out dwRegister: culong): HResult; stdcall; external oleaut32dll name 'RegisterActiveObject'; + function RevokeActiveObject(dwRegister: culong; pvReserved: Pointer) : HResult; stdcall; external oleaut32dll name 'RevokeActiveObject'; + function GetActiveObject(const clsid: TCLSID; pvReserved: Pointer; out unk: IUnknown) : HResult; stdcall; external oleaut32dll name 'GetActiveObject'; {$endif wince} function Succeeded(Res: HResult) : Boolean;inline;