如何配置求TDdeClientConv，以生成程序组(200分)

我自己制作安装盘
看到一个例程如下（生成程序组），但不知TDdeClientConv如何配置，请教各位;

　　Step 7：创建程序组
　　变量：
　　var
　　smacro:string;

　　 szmacro:array[0..254] of char;

　　 sgroupdesc,sgroupname:string;

　　 sprogdesc:string;

　　 sprogicon:string;

　　//创建主程序组
　　　　//打开对话通路
　　 if ddeclientconv1.OpenLink then

　　 begin

　　　　 //建立组群
　　　　 sgroupdesc:='宁波大学课件管理系统 ';

　　　　 sgroupname:='宁波大学课件管理系统 v1.0';

　　　　 //组成宏指令
　　　　 smacro:='[creategroup('+sgroupdesc+','+sgroupname+')]';

　　　　 strpcopy(szmacro,smacro);　　　　　　　　　　 //转成null-term 字串
　　　　 ddeclientconv1.ExecuteMacro(szmacro,false);
//执行宏指令
　　　　 //建立ICON图像
　　　　 sprogicon:=trim(FrmPathSelect.EdtDir.Text)+'/Tnbdemo.exe';;

　　　　 sprogdesc:='宁波大学课件管理系统';

　　　　 smacro:='[additem('+sprogicon+','+sprogdesc+')]';

　　　　 strpcopy(szmacro,smacro);

　　　　 ddeclientconv1.ExecuteMacro(szmacro,false);

　　　　 ddeclientconv1.CloseLink;

　　 end;

http://www.delphibbs.com/delphibbs/rules.asp

只要配置ddeClientConv的ServerApplication为program.exe即可。其他的参考上面的代码。

时间过长，斑竹代为结束！[]