如何让程序第一次运行时自动在桌面上建立快捷方式？(100分)

我的程序无需安装，希望在运行时判断是否建有快捷方式，如没有，则自动建立，不知该如何实现？

抄了一段，稍微有点改动——
uses
...,ActiveX, ComObj, ShlObj;

procedure TForm1.FormCreate(Sender: TObject);
var
ShLink: IShellLink;
PFile: IPersistFile;
FileName: WideString;
begin
FileName := ExtractFilePath(Application.ExeName) + '快捷方式 '
+ ExtractFileName(Application.ExeName) + '.lnk';
if FileExists(FileName) then Exit;
ShLink := CreateComObject (CLSID_ShellLink) as IShellLink;
PFile := ShLink as IPersistFile;
ShLink.SetPath(PChar(Application.ExeName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(Application.ExeName)));
PFile.Save(PWChar(FileName), False);
end;

回答过N次了

其实不必判断有没有快捷方式，每次启动时都创建一个快捷方式，如果有则自动覆盖。

接受答案了.