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

Question

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

Answer 1

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

Answer 2

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;

Answer 3

DdeClientConv1.OpenLink;//界面上放一个DdeClientConv
  if DdeClientConv1.ExecuteMacro(Cmd, False)=False then
在这里就失败了！！！

Answer 4

你就不看我给的代码？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;

Answer 5

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

Answer 6

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