各位大虾！怎么创建快捷方式，急急急急急急！小弟先谢谢了！：）

Question

使用IshellLink接口，在MSDN中有相关的说明。或者使用AHM中的AHMShellLinks控件。

Answer 1

uses
  ActiveX, ComObj, Shlobj;procedure CreateShortcut(AFileName, ASaveTo: string);
var
  shlLinkUnk: IUnknown;
begin
  shlLinkUnk := CreateComObject(CLSID_ShellLink);
  if not Assigned(shlLinkUnk) then
    raise EOleError.Create('Cannot create CoShellLink.');
  OleCheck((shlLinkUnk as IShellLinkA).SetPath(PChar(AFileName)));
  OleCheck((shlLinkUnk as IPersistFile).Save(StringToOleStr(ASaveTo),false));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateShortcut('c:\bootlog.txt','d:\bl.lnk');
end;