如何用Delphi創建快捷方式

AnObj: IUnknown;

ShellLink: IShellLink;

AFile: IPersistFile;

FileName: WideString;

begin

if UpperCase(ExtractFileExt(LinkPath)) 〈〉 ′.LNK′ then //檢查擴展名是否正確

begin

raise Exception.Create(′快捷方式的擴展名必須是 ′′LNK′′!′);/

/若不是則產生異常

end;

try

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