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

FileName: WideString;

LinkPath:String;

begin

LinkPath:=getDesktopPath()+'\'+linkName;

if UpperCase(ExtractFileExt(LinkPath))<>'.LNK' then //檢查擴展名是否正確

begin

raise Exception.Create('快捷方式的擴展名必須是.lnk!');

end;

try

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

AnObj := CreateComObject(CLSID_ShellLink);//根據給定的ClassID生成一個COM對象，此處是快捷方式

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

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