delphi 开发安装程序中 的创建程序组 代码如下
begin
if ddeclientconv1.OpenLink then
begin
cg:='[creategroup('+'管理系统'+','+'管理系统 V1.0.1'+')]';
strpcopy(ai,cg);
ddeclientconv1.executemacro(ai,false);
cg:='[additem('+'c:\demo\demo.exe'+''+'管理系统'+')]';
Strpcopy(ai,cg);
Ddeclientconv1.Executemacro(ai,false);
Ddeclientconv1.CloseLink;
end;
end;
／／／／／／即在创建 开始－＞所有程序－＞'管理系统' 单击运行程序
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
哪为高手帮我看一下 以上代码 哪出了问题，可以运行 但并没有 在开始菜单中创建 启动程序的快捷方式