本文整理自网络,侵删。
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 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err
更多相关阅读请进入《Delphi》频道 >>