可使用 CreateCOMObject 方法来判断
代码如下:
uses ComObj, ActiveX;
{$R *.dfm}
function CheckDllReg(fn :string):boolean;
var
clsID: TGUID;
obj: IUnknown;
begin
CLSIDFromProgID(pchar(fn), clsID);
obj:= CreateCOMObject(clsID);
Result := obj <> nil
end;