【结贴】初始化运行与客户端运行不一致**

sxl841117 · 发表于 2009-7-1 09:20:10

通过一个功能调用外部的exe文件

用的是Borland.Delphi.ShellAPI.ShellExecute(0, 'open','EPINFO.exe', '', '', borland.Delphi.Windows.Sw_ShowNormal)

EPINFO.exe 执行文件已经放在X3 Server\client\NewVersion\install目录下并且重新制作过，重启过Tomcat，刷新过缓存，现在在初始化运行下可以打开并执行exe文件，但是从客户端打开就无法运行exe文件

jiahaiming · 发表于 2009-7-1 09:29:19

楼上的做法，默认情况下可以用ie来操作。
如果想用客户端操作，需要选中客户端配置工具第三页“保持我的应用最新”选项

sxl841117 · 发表于 2009-7-1 09:35:04

用IE登录试了下确实可以了，
但是用客户端登录还是一样，“保持我的应用最新”是勾上的

jiahaiming · 发表于 2009-7-1 09:37:29

那就用安装制作工具重新制作一个客户端安装包吧。

sxl841117 · 发表于 2009-7-1 11:29:34

重新制作了安装包还是不行

lixy · 发表于 2009-7-1 11:31:16

你加点调试信息，看看客户端为什么不能执行。

sxl841117 · 发表于 2009-7-1 11:37:30

procedure TMAINFORM.BizFormShow(Sender: TObject);
var
lStr:string;
begin
   Label1.Visible := False;
   Label2.Visible := False;
   Label3.Visible := False;
   imgwarning.Visible := False;
   labHint.Visible := False;
   lStr := GetExePath;
   jsdialogs.ShowMsg(lStr,'2'); //测试
   if SysUtils.Trim(lStr) <> '' then
   begin
      jsdialogs.ShowMsg('2','2'); //测试
      lStr:='EPINFO.exe';
      Borland.Delphi.ShellAPI.ShellExecute(0, 'open',lStr, '', '', borland.Delphi.Windows.Sw_ShowNormal);
   end
   else
   begin
      Label1.Visible := True;
      Label2.Visible := True;
      Label3.Visible := True;
      imgwarning.Visible := True;
      labHint.Visible := True;
   end;
end;

两个测试的对话框在客户端运行时都是执行的

lixy · 发表于 2009-7-1 11:41:19

EPINFO.exe 在客户端目录都有吗？你换成其他命令，比如打开一个网页等等。
从而分析为什么你的不执行。

sxl841117 · 发表于 2009-7-1 12:01:10

搞定了是更新的问题修改版本号更新以后就可以了谢谢！

		自动登录	找回密码
密码			立即注册