uses
ActiveX,//必须的
//...
procedure HISCOM(Proc: DWord);
begin
case Proc of
DLL_PROCESS_ATTACH:
begin
CoInitialize(nil); //初始化它啦
end;
DLL_PROCESS_DETACH:
begin
CoUnInitialize;
dm_BaseTableOPD.Free;
Application := OldHandle;
end;
DLL_THREAD_ATTACH:
begin