编程应用实例：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;

文章来源于领测软件测试网 https://www.ltesting.net/