編程應用實例：Java通過JNI與Delphi交互

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

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

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

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

ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目標文件的工作目錄

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

ShellLink.SetIconLocation(PChar(IconPath),0);

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

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

finally

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

end;

end;

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