library adodll;

uses
SysUtils,
Classes,
Windows,
ActiveX;

procedure DLLEntry(Reason: integer);
begin
case Reason of
DLL_Process_Attach:CoInitialize(nil); // 整个 DLL 的初始化代码
DLL_Process_Detach:CoUnInitialize; // 整个 DLL 的善後程序
DLL_Thread_Attach:; // 当主叫端开始一个 Thread 时
DLL_Thread_Detach:; // 当主叫端终止一个 Thread 时
end;

end;



{$R *.res}

begin
DllProc:=@DllEntry;
DllEntry(DLL_PROCESS_ATTACH);
end.