本文整理自网络,侵删。
uses System.Win.ComObj,ActiveX;
function CheckComObj(progID: string): Boolean;var myGuid: TGUID;begin Result := False; try OleCheck(CLSIDFromProgID(Pchar(progID), myGuid)); if IsEqualGUID(myGuid, GUID_NULL) = False then Result := True; except Result := False; end;end;
相关阅读 >>
Delphi 10.4中新增功能:新的vcl tedgebrowser组件
idhttp相关:伪造来源地址、cookie欺骗、通过代理访问
Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)
Delphi 权限控制(Delphi tactionlist方案)
更多相关阅读请进入《Delphi》频道 >>