Delphi7 尚未调用CoInitialize 与 Application 的图标丢失

在EXE + DLL的程序结构中，如果EXE静态调用了一个包含ADO控件的DLL，那么将导致“尚未调用CoInitialize”的错误。解决的方法 是在EXE主窗口的最下方加上这两句：

uses  ActiveX

initialization  CoInitialize(nil);
////添加这两句是调用dll导致
finalization   CoUninitialize;

end.

静态调用是指在代码中做了如下声明：

procedure ShowSynchMetaDataForm(AHandle: THandle; AScreen: TScreen; ADataModule: Longint); stdcall; external 'MetaDataSynch.dll';

然后进行了如下的调用：

ShowSynchMetaDataForm(Application.Handle, Screen, Integer(PubDM));

导致的问题：

1、Exe的图标丢失(但我已经指定过Application.Icon)，显示的是一个类似Windows窗口的小黑白图标。

2、MDI主程序和子程序本来共享同一个热键，但现在这个热键只对子窗口有效。

问题的本质：

我推断在Windows装载这个EXE程序时：EXE的initialization会先被调用，DLL被优先加载，然后EXE才被加载。所以才会有上面的解决方法：调用COM初始化。

而事实上EXE中会调用COM初始化的函数，只是这个函数必须在静态调用的DLL被加载后才会调用。 ：（

解决方法：

一、把那个静态声明并调用的DLL改为改为动态调用（使用LoadLibrary）。

二、把此DLL改为EXE_B在EXE主程序中使用ShellAPI调用EXE_B