高手们如何使用delphi添加快捷方式？求救!!!!!

Question

高手们如何使用delphi添加快捷方式？

Answer 1

使用IShellLink接口,你自己查一下DELPHI的HELP吧.

Answer 2

procedure Tmainfrm.N30Click(Sender: TObject);
var
  MyObject : IUnknown;
  MySLink : IShellLink;
  MyPFile : IPersistFile;
  FileName : String;
  Directory : String;
  WFileName : WideString;
  MyReg : TRegIniFile;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  FileName := paramstr(0);
  with MySLink do begin
    SetPath(pchar(FileName));     // 1999.4.9, as bug before!
    SetHotkey(vk_F11);
    SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  end;
  MyReg := TRegIniFile.Create(
        'Software\MicroSoft\Windows\CurrentVersion\Explorer');
     // 在桌面上生成快捷图标
  Directory := MyReg.ReadString('Shell Folders','Desktop','');
    // 在Start Menu中加入相应的ShortCut
   { 1:Directory := MyReg.ReadString('Shell Folders','Start Menu','');
    // 在'发送到'中加入相应的ShortCut
    2:Directory := MyReg.ReadString('Shell Folders','SendTo','');
  end;  }  WFileName := Directory+'\中鑫工资管理系统 2003.lnk';
  MyPFile.Save(PWChar(WFileName),False);
  MyReg.free;
  application.messagebox('成功的创建！！！','消息框',mb_ok+mb_iconinformation);
end;

Answer 3

//上边的是在开始菜单，下边倒桌面:
procedure Tmainfrm.M2Click(Sender: TObject);
var
  MyObject : IUnknown;
  MySLink : IShellLink;
  MyPFile : IPersistFile;
  FileName : String;
  Directory : String;
  WFileName : WideString;
  MyReg : TRegIniFile;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  FileName := paramstr(0);
  with MySLink do begin
    SetPath(pchar(FileName));     // 1999.4.9, as bug before!
    SetHotkey(vk_F11);
    SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  end;
  MyReg := TRegIniFile.Create(
        'Software\MicroSoft\Windows\CurrentVersion\Explorer');
     // 在桌面上生成快捷图标
  //Directory := MyReg.ReadString('Shell Folders','Desktop','');
    // 在Start Menu中加入相应的ShortCut
   Directory := MyReg.ReadString('Shell Folders','Start Menu','');
    // 在'发送到'中加入相应的ShortCut
  {  2:Directory := MyReg.ReadString('Shell Folders','SendTo','');
  end;  }  WFileName := Directory+'\中鑫工资管理系统 2003.lnk';
  MyPFile.Save(PWChar(WFileName),False);
  MyReg.free;
  application.messagebox('成功的创建！！！','消息框',mb_ok+mb_iconinformation);
end;