怎样创建快捷方式到开始-》程序-》某目录下。在线等！！！！

[xingfuniao]

怎样创建快捷方式到开始-》程序-》某目录下。在线等！！！！

例如程序A创建到目录A下。

[老之]

http://community.csdn.net/Expert/topic/4765/4765273.xml?temp=.3012812

[wudi_1982]

procedure Tfrm_main.KuaiJie;
var
Macro: string;
Cmd: array[0..255] of Char;
begin
// 打开"启动"程序项
Macro := Format('[CreateGroup(%s)]', ['CSDN沙发机]) + #13#10;
StrPCopy (Cmd, Macro);
DdeClientConv1.OpenLink;//界面上放一个DdeClientConv
if DdeClientConv1.ExecuteMacro(Cmd, False)=False then
begin
MessageDlg('快捷方式创建失败!',mtError,[mbOK],0);
exit;
end;
Macro := Format('[AddItem("%s",%s)]', [lab_ml.Caption+'Bridge\ZbBridge.exe' , 'csdn沙发机']) + #13#10;
StrPCopy (Cmd, Macro);
DdeClientConv1.OpenLink;
// 创建应用程序的快捷方式
if DdeClientConv1.ExecuteMacro(Cmd, False)=False then
begin
MessageDlg('快捷方式创建失败!',mtError,[mbOK],0);
exit;
end;
end;

[xingfuniao]

DdeClientConv1.OpenLink;//界面上放一个DdeClientConv
if DdeClientConv1.ExecuteMacro(Cmd, False)=False then


在这里就失败了！！！

[老之]

你就不看我给的代码？

1 在指定路径生成快捷方式：
uses ActiveX,ShlObj,ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var SL:IShellLink;
PF:IPersistFile;
LinkName:WideString;
begin
OleCheck(CoCreateInstance(CLSID_SHELLLINK,nil,CLSCTX_INPROC_SERVER,IShellLink,SL));
PF:=SL as IPersistFile;
OleCheck(SL.SetPath('c:\1.exe'));
LinkName:='c:\快捷方式.lnk';
PF.Save(PWideChar(LinkName),True);
end;

2 获取 开始 - 程序 的路径
procedure TForm1.Button2Click(Sender: TObject);
var path:array[0..255]of char;
begin
SHGetSpecialFolderPath(0,path,CSIDL_PROGRAMS,True);
ShowMessage(path);
end;

[wudi_1982]

ddeclientconv1的设置如下：注意linkinfo
object DdeClientConv1: TDdeClientConv
DdeService = 'ProgMan'
Left = 281
Top = 40
LinkInfo = (
'Service ProgMan'
'Topic ')
end

[wudi_1982]

你用我最开始给你的代码，然后根据上面的设置好ddeclientconv1的相关属性就可以了。