From 91988e611ab558e26853fff25cb20c8a2b2875f7 Mon Sep 17 00:00:00 2001 From: yury Date: Mon, 15 Oct 2012 21:27:45 +0000 Subject: [PATCH] * Ignore an error returned by UnRegisterTypeLib() to allow successful un-registration of whole COM object if type library is not registered atm. git-svn-id: trunk@22656 - --- packages/winunits-base/src/comserv.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/winunits-base/src/comserv.pp b/packages/winunits-base/src/comserv.pp index d71cbdbf7f..92de88bcfa 100644 --- a/packages/winunits-base/src/comserv.pp +++ b/packages/winunits-base/src/comserv.pp @@ -207,7 +207,7 @@ begin //http://www.experts-exchange.com/Programming/Misc/Q_20634807.html OleCheck(TypeLib.GetLibAttr(ptla)); 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 TypeLib.ReleaseTLibAttr(ptla); end;