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

end;

的确有对话框出来。偶用的xp，如果2003，不知道会不会取消了。