浙江省邮电学校56# 姚辉

---- 当应用程序安装完毕后，通常都会建立程序组，它们是怎么实现的呢？下面是一种使用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;
}

---- 5.使用Class Wizard给CPMGROUPApp添加一个ExitInstance函数，输入下列代码：

int CPMGROOPApp::ExitInstance()
{
// TODO: Add your specialized code here and/or call the base class
DdeUninitialize(dwDDEInst);
return CWinApp::ExitInstance();
}

---- 6.按F5运行，分别输入组名、标名、文件名，按确定看看。

---- 7.当然我们也可用其它命令字对程序组进行其它操作：

---- [ShowGroup(My Group,1)]

---- 显示并激活名为My Group的组窗口

---- [DeleteGroup(My Group)]

---- 删除名为My Group的组

---- [ReloadGroup(My Group)]

---- 去除并重新装载名为My Group的组

---- [Additem(HELLO.EXE,HELLO)]

---- 为HELLO.EXE创建图标，标记为HELLO

---- [ReplaceItem(HELLO)]

---- 为名为HELLO的条目去除图标，并在这里插入下一条目

---- [DeleteItem(HELLO)]

---- 删除名为HELLO的条目

---- [ExitProgMan(1)]

---- 退出程序管理器，并存贮信息（0不存）