如何用Delphi創建快捷方式

WinDir:=String(tmp);

if Length(WinDir) 〉 3 then

WinDir:=WinDir+′\′;//得到Windows的目錄

//在桌面上放置本程序的快捷方式

CreateLink(ParamStr(0),′′,WinDir+′desktop\′+Application.Tit

le+′.lnk′,′Application.Title′);

end;

文章來源于領測軟件測試網 http://www.kjueaiud.com/