paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 13:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Ignore an error returned by UnRegisterTypeLib() to allow successful un-registration of whole COM object if type library is not registered atm.

Browse Source 
git-svn-id: trunk@22656 -
This commit is contained in:
yury 2012-10-15 21:27:45 +00:00
parent 66872fafa2
commit 91988e611a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/winunits-base/src/comserv.pp
View File

@ -207,7 +207,7 @@ begin
//http://www.experts-exchange.com/Programming/Misc/Q_20634807.html //http://www.experts-exchange.com/Programming/Misc/Q_20634807.html
OleCheck(TypeLib.GetLibAttr(ptla)); OleCheck(TypeLib.GetLibAttr(ptla));
try try
OleCheck(ActiveX.UnRegisterTypeLib(ptla^.guid, ptla^.wMajorVerNum, ptla^.wMinorVerNum, ptla^.lcid, ptla^.syskind)); ActiveX.UnRegisterTypeLib(ptla^.guid, ptla^.wMajorVerNum, ptla^.wMinorVerNum, ptla^.lcid, ptla^.syskind);
finally finally
TypeLib.ReleaseTLibAttr(ptla); TypeLib.ReleaseTLibAttr(ptla);
end; end;