procedure DLLEntryPoint(Reason: DWord); begin case Reason of DLL_PROCESS_ATTACH: begin CoInitialize(nil); OpenDB; end; DLL_PROCESS_DETACH: begin CoUninitialize(); end; DLL_THREAD_ATTACH:; DLL_THREAD_DETACH:; end; end;procedure OpenDB ; begin 打开数据库 end;
CoInitialize(nil);
初始化
begin
case Reason of
DLL_PROCESS_ATTACH:
begin
CoInitialize(nil);
OpenDB;
end;
DLL_PROCESS_DETACH:
begin
CoUninitialize();
end;
DLL_THREAD_ATTACH:;
DLL_THREAD_DETACH:;
end;
end;procedure OpenDB ;
begin
打开数据库
end;