本文整理自网络,侵删。
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 xp 之后, Delphi 动注册表不方便了...逼出来一个办法:
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
Delphi 用cxgrid把数据导出到excel时乱码的解决办法
Delphi xe android/ios 实现图片放大缩小的两种方法
更多相关阅读请进入《Delphi》频道 >>