使用DDE使应用程序可以添加新的程序组

核心提示：当应用程序安装完毕后，通常都会建立程序组，使用DDE使应用程序可以添加新的程序组，它们是怎么实现的呢？下面是一种使用DDE来添加新的程序组的例子，1.使用MFC新一项目PMGROUP（对话框形式），因此还要给CPGROUPApp类添加上AddPMGroup（用鼠标在ClassView的CPGROUPApp上点击右键，在

当应用程序安装完毕后，通常都会建立程序组，它们是怎么实现的呢？下面是一种使用DDE来添加新的程序组的例子。

1.使用MFC新一项目PMGROUP（对话框形式），在对话框中添加三个Edit Box。

2.使用Class Wizard,添加成员变量m_GroupName,m_ItemName,m_FileName,分别对应添加的三个Edit Box,它们将容纳输入的三个条目（组名，标记名，对应的文件名）；

3.在头文件STDAFX.H中，添加下列代码：

#include < ddeml.h >

4.在应用程序类CPGROUPApp的InitInstance函数中，添加下列代码：

BOOL CPMGROUPApp::InitInstance()
{
//...
//Initialze DDEML
DdeInitialize(&dwDDEInst,NULL,APPCMD_CLIENTONLY,0);

if (nResponse == IDOK)
{
// TODO: Place code here to handle when the dialog is
//　dismissed with OK
if(!AddPMGroup(dlg.m_GroupName,dlg.m_ItemName,dlg.m_FileName))
{
::MessageBox(NULL,"PMGroup:DDE Error","Error
adding group and item.",MB_ICONHAND|MB_OK);
}

}
//...
}

再给CPGROUPApp类添加一个成员变量dwDDEInst:

DWORD dwDDEInst；（用鼠标在ClassView的CPGROUPApp上点击右键，在弹出的菜单中选取择Add Member Variable,在对话中分别输入DWORD和dwDDEInst）

因为它是一个以对话框为基础的应用程序，当单击确定后，就调用AddPMGroup来添加新的程序组。因此还要给CPGROUPApp类添加上AddPMGroup（用鼠标在ClassView的CPGROUPApp上点击右键，在弹出的菜单中选取择Add Member Function,在对话中分别输入int和AddPMGroup。将生成的int CPMGROUPApp::AddPMGroup()改为int CPMGROUPApp::AddPMGroup(CString &group,CString &item,CString &file),在CPGROUPApp中将int AddPMGroup()改为int AddPMGroup(CString &group,CString &item,CString &file)）,AddPMGroup的内容为：

int CPMGROOPApp::AddPMGroup(CString &group,CString &item,CString &file)
{
HSZ hszService=DdeCreateStringHandle(dwDDEInst,_T("PROGMAN"),CP_WINANSI);
HSZ hszTopic=DdeCreateStringHandle(dwDDEInst,_T("PROGMAN"),CP_WINANSI);
HCONV hConV=DdeConnect(dwDDEInst,hszTopic,hszService,NULL);
DdeFreeStringHandle(dwDDEInst,hszService);
DdeFreeStringHandle(dwDDEInst,hszTopic);
if(!hConV)
{
return FALSE;
}
//主要内容
CString cmd="[CreateGroup("+group+")]";//建立组的命令字
DWORD dwResult;
LPCTSTR data=(LPCTSTR)cmd;
DdeClientTransaction((LPBYTE)data,cmd.GetLength (),
hConV,NULL,CF_TEXT,XTYP_EXECUTE,
1000,&dwResult);
cmd="[AddItem("+file+","+item+")]";
//建立"file"的图标，"item"为标记的命令字
data=(LPCTSTR)cmd;
DdeClientTransaction((LPBYTE)data,cmd.GetLength (),
hConV,NULL,CF_TEXT,XTYP_EXECUTE,
1000,&dwResult);
return TRUE;
}