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

[cxl_langchao]

[Wingsun]

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

[JGTM2000]

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;