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

Result:= DesktopPath;

finally

Reg.Free;

end;

end;

//創建桌面快捷方式

procedure CreateDesktopLink(ProgramPath, ProgramArg, LinkName, Descr,IconPath: String);

var

AnObj: IUnknown;

ShellLink: IShellLink;

AFile: IPersistFile;

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