如何用Delphi創建快捷方式

ShellLink.SetArguments(PChar(ProgramArg));// 目標文件參數

ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)))

;//目標文件的工作目錄

ShellLink.SetDescription(PChar(Descr));// 對目標文件的描述

FileName := LinkPath;//把文件名轉換為WideString類型

AFile.Save(PWChar(FileName), False);//保存快捷方式

finally

OleUninitialize;//關閉OLE庫，此函數必須與OleInitialize成對調用

end;

end;

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