1 procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);
 2 var
 3   AnObj: IUnknown;
 4   ShellLink: IShellLink;
 5   AFile: IPersistFile;
 6   FileName: WideString;
 7 begin
 8   if UpperCase(ExtractFileExt(LinkPath)) <> '.LNK' then //检查扩展名是否正确
 9   begin
10     raise Exception.Create('快捷方式的扩展名必须是 ′′LNK′′!');
11     //若不是则产生异常
12   end;
13 try
14   OleInitialize(nil);//初始化OLE库，在使用OLE函数前必须调用初始化
15   AnObj :=CreateComObject(CLSID_ShellLink); //根据给定的ClassID生成
16   //一个COM对象，此处是快捷方式
17   ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口
18   AFile := AnObj as IPersistFile;//强制转换为文件接口
19   //设置快捷方式属性，此处只设置了几个常用的属性
20   ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件，一般为可执行文件
21   ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数
22   ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目标文件的工作目录
23   ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述
24   FileName := LinkPath;//把文件名转换为WideString类型
25   AFile.Save(PWChar(FileName), False);//保存快捷方式
26 finally
27 　OleUninitialize;//关闭OLE库，此函数必须与OleInitialize成对调用
28 end;
29 
30 end;

 1 procedure TForm1.Button1Click(Sender: TObject);
 2 
 3 var
 4 
 5   tmp: array [0..MAX—PATH] of Char;
 6 
 7   WinDir: string;
 8 
 9 begin
10 
11   GetWindowsDirectory(tmp,MAX—PATH);
12 
13   WinDir:=String(tmp);
14 
15   if Length(WinDir) 〉 3 then
16 
17     WinDir:=WinDir+′\′;//得到Windows的目录
18 
19   //在桌面上放置本程序的快捷方式
20 
21   CreateLink(ParamStr(0),′′,WinDir+′desktop\′+Application.Tit
22 
23   le+′.lnk′,′Application.Title′);
24 
25 end;