急，关于对话框程序退出后任务管理器进程中还能看到该对话框程序exe还未结束退出的问题？

[scq2099yt]

开发平台：VC6.0+Windows Server 2003
程序模式：MFC对话框应用程序

对话框应用程序无标题栏，初始化时全屏显示。

我的应用程序中用到了如下资源：
1、主线程用socket进行收发数据，为客户端链接本地服务器端；
2、开启了一个线程用于接收来自TCP端口的数据，线程用CreateThread创建；
3、用到WebBrowser控件用于播放PowerPoint；
4、用到了Office Ole自动化接口操作PowerPoint；
5、用到了命名管道与ATL插件通信；
6、用到了GDI绘图；
7、用到了CButtonST、CBackgroundUtil、CResizeDialog、CToolTipCtrl类
8、用到了MySQL-5.0.51b-win32
9、用到了ini配置文件的读取

上面是我用到的一些资源，下面是我退出对话框应用程序的流程和回收资源的代码：
流程：对话框上放置了一个按钮，按钮ID为IDOK，点击该按钮退出应用程序，下面是该函数中的代码：
void CXXXDlg::OnOK()
{
/****变量注释****/
// MYSQL mysql; // 数据库连接句柄
// HANDLE m_ThreadHandle; // 接收线程句柄
// SOCKET sockClient; // 收发数据套接字
// _Application app; // PowerPoint对象
if ( IDYES == MessageBox(_T("确认退出请选择是，否则请选择否"), _T("XXX"), MB_YESNO) )
{
mysql_close(&mysql);
if (CanExit())
{
if(m_ThreadHandle)
{
if( ::WaitForSingleObject(m_ThreadHandle, 1000) == WAIT_TIMEOUT )
{
//如果超时：
TerminateThread(m_ThreadHandle, NULL);
}
CloseHandle(m_ThreadHandle);
m_ThreadHandle = NULL;
}

closesocket(sockClient);
WSACleanup();
app.DetachDispatch();
app.ReleaseDispatch();

CDialog::OnOK();
}
}
else
{
return;
}
}


问题一：点击按钮执行上面函数后，对话框是退出了，可是在任务管理器的进程栏中的exe要6秒左右才会自动退出。
这是什么原因？

个人认为是资源没有回收完。
问题二：这种情况一般是哪些资源没有回收？

问题三：一般程序退出要注意些什么？

问题四：我的程序要求是单实例运行，用CreateSemaphore创建信号量实现单实例运行（如果已经运行了一个实例则激活该实例，否则重新运行一个实例），如果不解决问题一，当退出程序后再重新启动程序时点击exe将无法启动程序，因为前面的进程还没有真正结束，请问如何解决该问题，我的退出函数OnOK()有什么问题？

谢谢！
分不够可以加！
问题解决后立即揭帖，按劳分配。
再次感谢！

[jameshooo]

错了，是app.ReleaseDispatch()，不是Release。

你最好先确认一下是哪个语句执行比较耗时，不然难以分析原因。进程外组件的关闭是比较耗时，但是仅仅是组件自身关闭耗时，不是客户端。

[菜牛]

你是怎么导入Excel类的？
试试加上app->Quit();去掉DetachDispatch（一定要去掉）

[菜牛]

MSDN 上用“导入类型库”方式引用PowerPoint的例子，退出代码是这样的，供参考：
Variable Type: _Application
Variable Declaration: m_ppt
Access: Private

      void CMainFrame::OnPowerpointQuitpowerpoint()
      {
         // Check if PowerPoint is still running. If
         // PowerPoint is not running, quit PowerPoint
         // and release the dispatch pointer.
         if(m_ppt.m_lpDispatch != NULL) {

            // Quit PowerPoint. Note, the Quit command exits
            // PowerPoint without displaying any dialog boxes. So,
            // any unsaved data is lost.
            m_ppt.Quit();

            // Free the dispatch. This sets m_lpDispatch to NULL.

            m_ppt.ReleaseDispatch();


         };
      }

[scq2099yt]

to jameshooo 大哥：

我将下面两行注释掉了。
app.DetachDispatch();
app.ReleaseDispatch();

然后在WM_DESTROY里加上下面语句：
app.ReleaseDispatch();

还是6秒左右真正退出。

你最好先确认一下是哪个语句执行比较耗时，不然难以分析原因。进程外组件的关闭是比较耗时，但是仅仅是组件自身关闭耗时，不是客户端。

不太好确认是哪句耗时，程序代码已经不小了，而且只是在我退出时慢。
我的理解：您的意思是程序真正退出慢是因为PowerPoint自动化的问题？

其实我的理解是对话框程序执行OnOk函数，只要调用资源释放了应该应该很快就退出了，不知理解是否有误？
还望大哥指教，谢谢！

[jameshooo]

所以要先确认是不是自动化问题，可以在怀疑的每个语句统计执行时间，比如：
DWORD dwCount = GetTickCount();
app.ReleaseDispatch();
TRACE(_T("ReleaseDispatch: %d\n"), GetTickCount()-dwCount);

[scq2099yt]

to Mackz 大哥：

你是怎么导入Excel类的？
试试加上app->Quit();去掉DetachDispatch（一定要去掉）

用类型向导导入PowerPoint类型库，然后包含PowerPoint头文件：#include "msppt.h"，
再在对话框初始化函数中加入如下代码：
BOOL CXXXDlg::OnInitDialog()
{
.....
// 创建PPT对象接口
if(!app.CreateDispatch("Powerpoint.Application"))
{
MessageBox("Couldn't start PowerPoint.");
return FALSE;
}
.....
}

已经去掉了DetachDispatch，不过我想知道DetachDispatch的作用以及去掉和不去掉的影响，
不好意思，这又是额外问题了，我对Office开发不是很熟，呵呵！请指教，谢谢！

我的用户需求中不允许用app->Quit();
原因如下：我用对话框应用程序播放PowerPoint，如果加上app->Quit();后，对话框退出时将会把打开的
PowerPoint也退出了，这样用户再次播放的时候又要重新打开PowerPoint，用户是上帝所以就得我们提供便利，
呵呵！

不过我会试加了这句后是不是程序退出是否会快点，不需要6秒，试完回来报告。再次感谢！

[scq2099yt]

to jameshooo 大哥：

所以要先确认是不是自动化问题，可以在怀疑的每个语句统计执行时间，比如：
DWORD dwCount = GetTickCount();
app.ReleaseDispatch();
TRACE(_T("ReleaseDispatch: %d\n"), GetTickCount()-dwCount);

根据您的建议，我将OnDestroy函数作如下修改：
void CXXXDlg::OnDestroy()
{
CResizeDialog::OnDestroy();

DWORD dwCount = GetTickCount();
app.ReleaseDispatch();
//TRACE(_T("ReleaseDispatch: %d\n"), GetTickCount()-dwCount); //注释掉了，因为我的程序无法调试
CString str = _T("");
DWORD dwDif = GetTickCount()-dwCount;
str.Format("%d", dwDif);
MessageBox(str);

// 删除寻找标记
::RemoveProp(m_hWnd, AfxGetApp()->m_pszExeName);
}

MessageBox弹出的消息显示0

[scq2099yt]

to Mackz 大哥：

您的头像中的照片是不是您儿子，挺帅的小伙，呵呵！

我在OnOK加了如下代码（不相关的省略了）：
void CXXXDlg::OnOK()
{
....
app.Quit();
app.ReleaseDispatch();

CDialog::OnOK();
}

退出时间还是6秒左右。

[scq2099yt]

to douzexin1111 大哥：

你等待一秒后，终止线程，使用TerminateThread不好，一般不要使用这个API，直接发送结束消息更好一些。

如何发送结束消息？

[stivenjia]

看来是ole的问题，office的组件我没用过，没发言权。

[scutLiu]

一种比较流氓的做法是在退出中直接使用exit函数进行退出
在长时间无法解决情况下可以用这种方法来规避你的问题
但一般情况建议还是使用其他办法解决

[scq2099yt]

to stivenjia 大哥：

看来是ole的问题，office的组件我没用过，没发言权。

没关系，可以一起研究讨论，我发这个贴的目的就是想向大家学习，自己水平不够想多多提高，呵呵！
论坛里牛人很多。

[stivenjia]

如果 在每个组件释放的地方都加个断点线程内的加入OutputDebugString或TRACE
然后F5运行到一个组件释放位置后停止察看是否6秒后释放资源。
不知道用这个方法是否能找到那个隐藏的泄漏

[scq2099yt]

to scutLiu 大哥：
一种比较流氓的做法是在退出中直接使用exit函数进行退出
在长时间无法解决情况下可以用这种方法来规避你的问题
但一般情况建议还是使用其他办法解决

用exit会导致对话框界面都几秒钟后才能退出，而且PowerPoint会异常，下次再用就得用任务管理器结束进程后才能用。

[scq2099yt]

to stivenjia 大哥：

如果 在每个组件释放的地方都加个断点线程内的加入OutputDebugString或TRACE
然后F5运行到一个组件释放位置后停止察看是否6秒后释放资源。
不知道用这个方法是否能找到那个隐藏的泄漏

这个办法比较麻烦，而且我的程序没法用F5调式，多过独立的进程模块。

[scq2099yt]

to ouyh12345 大哥：
看到了在Start Address下面有：
!MulDiv+0x12c
ntdll.dll!RtlConvertUiListToApiList+0x252

不明白有什么毛病？
请指点下！


上面的信息如何解释或意味着什么？
我也多学学这个工具，呵呵！

谢谢！

[菜牛]

前面没仔细看，看了题目以为就是进程无法结束；如果过6秒能够退出，说明退出之前程序有很多操作。可能是很多内存需要释放，或者你的线程等待时间比较长；最好检查一下；另外OLE对象用完及时释放也可以减少退出时的负担。

[菜牛]

app.DetachDispatch();
app.ReleaseDispatch();
改成：
app.Release();
试试

[scq2099yt]

to Mackz 大哥：

谢谢您的建议，呵呵。
我明白了，也就说6秒退出如果需要释放的资源比较多应该算是正常的了，呵呵。
用到的资源及时释放确实是个好习惯，再次感谢！

[scq2099yt]

揭帖了，解决方法用cnzdgs 大哥的方法。
谢谢各位！
顺祝明天北京奥运会开幕式圆满成功！