1.uses ActiveX; 

2.

procedure HLCJ.Execute;
begin
    CoInitialize(nil);
    //要使用的控件
    CoUninitialize;
end;

相关文章: