如何用Delphi創建快捷方式

OleInitialize(nil);//初始化OLE庫，在使用OLE函數前必須調用初始化

AnObj := CreateComObject(CLSID—ShellLink);//根據給定的ClassID生成

一個COM對象，此處是快捷方式

ShellLink := AnObj as IShellLink;//強制轉換為快捷方式接口

AFile := AnObj as IPersistFile;//強制轉換為文件接口

//設置快捷方式屬性，此處只設置了幾個常用的屬性

ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目標文件，一般

為可執行文件

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