1.uses ActiveX;
2.
procedure HLCJ.Execute;
begin
CoInitialize(nil);
//要使用的控件
CoUninitialize;
end;
1.uses ActiveX;
2.
procedure HLCJ.Execute;
begin
CoInitialize(nil);
//要使用的控件
CoUninitialize;
end;
转载于:https://www.cnblogs.com/FKdelphi/p/4654866.html