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

最新推荐文章于 2025-05-25 15:13:52 发布

原创最新推荐文章于 2025-05-25 15:13:52 发布 · 2.1k 阅读

CC 4.0 BY-SA版权

在EXE+DLL结构的Delphi7程序中，静态调用包含ADO控件的DLL会导致'尚未调用CoInitialize'错误，同时出现图标丢失和热键问题。解决方案包括动态加载DLL或通过ShellAPI调用外部EXE来避免初始化顺序问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在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