【结】[请求]创建桌面快捷方式**

rzport_jqf

平台在通过b/s方式安装的时候, 能否将business.exe 创建桌面快捷方式?

jiahaiming

可以。
楼主直接打开%appdata%\justep\x3client目录，创建快捷方式就行了。

rzport_jqf

能否自动创建?

gaihl

系统现在没有提供自动在桌面创建快捷方式
每次打开网页时,都会打开Business.jsp,  楼主可以在网上搜搜,是不是可以用JavaScript在加载网页时自动创建快捷方式呢?
如: http://www.asm32.net/article_disp.asp?ID=39

jiahaiming

参考下这个：
http://crid.blog.hexun.com/15236985_d.html

rzport_jqf

dephi 有段创建快捷方式, 请问转在平台上用?

Function CreateLink(Const ProgramFile,ProgramArg,CreateLinkPath,Descr: String):boolean;

//ProgramFile是目标文件的全路径rogramArg是执行的参数;CreateLinkPath是要创建到快捷方式的全路径;Descr是此快捷方式的描述

var

AnObj: IUnknown;

ShellLink: IShellLink;

AFile: IPersistFile;

FileName: WideString;

begin

try

OleInitialize(nil);//初始化OLE库,在使用OLE函数前必须调用初始化

AnObj := CreateComObject(CLSID_ShellLink);//根据给定的ClassID生成一个COM对象,此处是快捷方式

ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口

AFile := AnObj as IPersistFile;//强制转换为文件接口

ShellLink.SetPath(PChar(ProgramFile)); // 快捷方式的目标文件,一般为可执行文件

ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数

ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramFile)));//目标文件的工作目录

ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述

FileName :=CreateLinkPath;//把文件名转换为WideString类型

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

OleUninitialize;//关闭OLE库,此函数必须与OleInitialize成对调用

except

OleUninitialize;//关闭OLE库,此函数必须与OleInitialize成对调用

result:=False;

end;

result:=True;

end;

zfang

这个需要楼主用delphi做一个第三方控件导入到平台的方式。
论坛里有类似的帖子。

rzport_jqf

我们不会用delphi  

从平台上不能做吗?

zfang

那 用5楼给的bat方式可以吗？

zfang

对于1楼的需求，可以通过增加一个bat生成快捷方式的方式，用服务端的制作工具重新制作一下，增加一个动作：把这个bat加进去的方式。