如何将一个应用程序加到程序组中去？(通过程序） (100分)

下面是通过DDE实现的，不过程序有问题，大家帮我看看，或者告说我其他更好的方法。


procedure TForm1.Button1Click(Sender: TObject);
var
smacro:string;
szmacro:array[0..254] of char;
sgroupdesc,sgroupname:string;
sprogdesc:string;
sprogicon:string;
//创建主程序组
begin
//打开对话通路
if ddeclientconv1.OpenLink then
begin
//建立组群
sgroupdesc:='管理系统 ';
sgroupname:='管理系统 v1.0';
//组成宏指令
smacro:='[creategroup('+sgroupdesc+','+sgroupname+')]';
strpcopy(szmacro,smacro);//转成null-term 字串
ddeclientconv1.ExecuteMacro(szmacro,false); //执行宏指令
//ExecuteMacro(szmacro,false); //执行宏指令
//建立ICON图像
sprogicon:=trim(EdtDir.Text)+'paint_P.exe'; //paint_P.exe为应用程序
sprogdesc:='管理系统';
smacro:='[additem('+sprogicon+','+sprogdesc+')]';
strpcopy(szmacro,smacro);
//ExecuteMacro(szmacro,false);
ddeclientconv1.ExecuteMacro(szmacro,false);
ddeclientconv1.CloseLink;
end;
end;


还有，如何将生成的应用程序图标（delphi默认图标）改为自己的图标？

谢谢!!!

在project菜单栏选中options菜单，在弹出窗体中选中application页，
点中Load Icon按钮，选择你喜爱的图表即可，

to mlzhou 谢谢！！第二个问题解决了。谢谢指点。
各位 帮我看看第一个问题。再次谢谢！