|
@@ -218,6 +218,8 @@ uses
|
|
var
|
|
var
|
|
Mutex: THandle;
|
|
Mutex: THandle;
|
|
IPForm: TIPForm;
|
|
IPForm: TIPForm;
|
|
|
|
+ vFDForm: TFileDownLoadForm;
|
|
|
|
+ sInfo, sURL, sName: string;
|
|
|
|
|
|
begin
|
|
begin
|
|
Mutex := CreateMutex(nil, True, G_AppHandleName);
|
|
Mutex := CreateMutex(nil, True, G_AppHandleName);
|
|
@@ -245,11 +247,59 @@ begin
|
|
IPForm.Free;
|
|
IPForm.Free;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+ {$IFDEF _mLoginNoPW}
|
|
|
|
+ sName := PHPWeb.GetNameFromURLProtocol(ParamStr(1));
|
|
|
|
+ if sName = '' then // 表示手工运行的
|
|
|
|
+ begin
|
|
|
|
+ Application.MessageBox('请从 项目管理信息平台 打开软件。', '系统提示', MB_OK + MB_ICONINFORMATION);
|
|
|
|
+ Application.Terminate;
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ begin
|
|
|
|
+ // For Test only!
|
|
|
|
+// Application.MessageBox(PChar(ParamStr(1) + #10#13 + sName), '系统提示', MB_OK + MB_ICONINFORMATION);
|
|
|
|
+// Application.Terminate;
|
|
|
|
+
|
|
|
|
+ case PHPWeb.Login(sName, '', 2, sInfo, sURL) of
|
|
|
|
+ ltLoginFail:
|
|
|
|
+ begin
|
|
|
|
+ Application.MessageBox('该用户尚未注册不能登录!', '操作提醒', MB_OK + MB_ICONWARNING);
|
|
|
|
+ Application.Terminate;
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+ ltUpdate: // 升级
|
|
|
|
+ begin
|
|
|
|
+ if Application.MessageBox(PChar(sInfo), '系统提示', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK then
|
|
|
|
+ begin
|
|
|
|
+ vFDForm := TFileDownLoadForm.Create(nil);
|
|
|
|
+ try
|
|
|
|
+ vFDForm.URL := sURL;
|
|
|
|
+ vFDForm.ShowModal;
|
|
|
|
+ finally
|
|
|
|
+ vFDForm.Free;
|
|
|
|
+ end;
|
|
|
|
+ end;
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+ ltDisCon:
|
|
|
|
+ begin
|
|
|
|
+ Application.MessageBox('网络错误,请稍后重试!', '操作提醒', MB_OK + MB_ICONWARNING);
|
|
|
|
+ Application.Terminate;
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+ else
|
|
|
|
+ ;
|
|
|
|
+ end;
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+ {$ELSE}
|
|
if not LoginForm then
|
|
if not LoginForm then
|
|
begin
|
|
begin
|
|
Application.Terminate;
|
|
Application.Terminate;
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
|
|
+ {$ENDIF}
|
|
|
|
+
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
|
if CheckDogExists then
|
|
if CheckDogExists then
|