瀏覽代碼

measure_cloud.dpr添加紫光中文名登录代码

builder 8 年之前
父節點
當前提交
a300a73c74
共有 3 個文件被更改,包括 6 次插入2 次删除
  1. 2 2
      Dprs/Pro/Measure_Cloud.dof
  2. 4 0
      Dprs/Pro/Measure_Cloud.dpr
  3. 二進制
      Dprs/Pro/Measure_Cloud.res

+ 2 - 2
Dprs/Pro/Measure_Cloud.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=6
-Build=2136
+Build=2138
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.6.2136
+FileVersion=3.1.6.2138
 InternalName=
 LegalCopyright=版权所有(C)珠海纵横创新软件有限公司2003-2016
 LegalTrademarks=Measure

+ 4 - 0
Dprs/Pro/Measure_Cloud.dpr

@@ -5,6 +5,7 @@ program Measure_Cloud;
 uses
   Windows,
   ShareMem,
+  HttpApp,
   Forms,
   Controls,
   MainFrm in '..\..\Forms\MainFrm.pas' {MainForm},
@@ -247,6 +248,9 @@ begin
 
       {$IFDEF _mLoginNoPW}
       sName := PHPWeb.GetNameFromURLProtocol(ParamStr(1));
+      if sName[1]= '%' then
+         sName:=UTF8Decode(HttpDecode(sName));
+         
       if sName = '' then         // 表示手工运行的
       begin
         Application.MessageBox('请从 项目管理信息平台 打开软件。', '系统提示', MB_OK + MB_ICONINFORMATION);

二進制
Dprs/Pro/Measure_Cloud.res