UnRegisterTypeLib

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

METHOD UnRegisterTypeLib( pstruTypeLibGUID AS _WinGUID, cTypeLib AS STRING ) AS LOGIC  ; ...
...PASCAL CLASS TS_ServerInfo
LOCAL lRetVal AS LOGIC
   TSTrace Enter
   IF SELF:IsValidObject
//    IF TS_HSucceeded(UnRegisterTypeLib(pstruTypeLibGUID;
//    ,1      ;
//    ,0      ;
//    ,TS_Locale()    ;
//    ,SYS_WIN32    ))
//    lRetVal:=TRUE
//    ELSE
//    lRetVal:=FALSE
//    END
      TSTrace Warning "Function not implemented!"
      lRetVal:=FALSE
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      lRetVal:=FALSE
   END
   TSTrace Leave
RETURN lRetVal