paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:30:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* load procedure variables in comobj unit with proper names, partly resolves #10615

Browse Source 
git-svn-id: trunk@9738 -
This commit is contained in:
florian 2008-01-13 17:04:48 +00:00
parent e14cd726b4
commit a681a3b3c8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/winunits-base/src/comobj.pp
View File

@ -1035,12 +1035,12 @@ initialization
Ole32Dll:=GetModuleHandle('ole32.dll'); Ole32Dll:=GetModuleHandle('ole32.dll');
if Ole32Dll<>0 then if Ole32Dll<>0 then
begin begin
Pointer(CoCreateInstanceEx):=GetProcAddress(Ole32Dll,'CoCreateInstanceExProc'); Pointer(CoCreateInstanceEx):=GetProcAddress(Ole32Dll,'CoCreateInstanceEx');
Pointer(CoInitializeEx):=GetProcAddress(Ole32Dll,'CoInitializeExProc'); Pointer(CoInitializeEx):=GetProcAddress(Ole32Dll,'CoInitializeEx');
Pointer(CoAddRefServerProcess):=GetProcAddress(Ole32Dll,'CoAddRefServerProcessProc'); Pointer(CoAddRefServerProcess):=GetProcAddress(Ole32Dll,'CoAddRefServerProcess');
Pointer(CoReleaseServerProcess):=GetProcAddress(Ole32Dll,'CoReleaseServerProcessProc'); Pointer(CoReleaseServerProcess):=GetProcAddress(Ole32Dll,'CoReleaseServerProcess');
Pointer(CoResumeClassObjects):=GetProcAddress(Ole32Dll,'CoResumeClassObjectsProc'); Pointer(CoResumeClassObjects):=GetProcAddress(Ole32Dll,'CoResumeClassObjects');
Pointer(CoSuspendClassObjects):=GetProcAddress(Ole32Dll,'CoSuspendClassObjectsProc'); Pointer(CoSuspendClassObjects):=GetProcAddress(Ole32Dll,'CoSuspendClassObjects');
end; end;
if not(IsLibrary) then if not(IsLibrary) then