uses
Comobj;
var
FObj: Variant;procedure Form1.FormCreate(..)
begin
FObj := CreateCOMObject(StringToGUID('')) as IDispatch;
end;在别的事件中这样调用:
FObj.函数名+ 参数
Comobj;
var
FObj: Variant;procedure Form1.FormCreate(..)
begin
FObj := CreateCOMObject(StringToGUID('')) as IDispatch;
end;在别的事件中这样调用:
FObj.函数名+ 参数
FObj := CreateCOMObject(StringToGUID('')) as IDispatch;
end;