整合EEP的執行程式 【修改方法】 1. 在舊系統中新增一個啟動點來呼叫ClientLoader.exe。 2. 修改ClientRun.bin的登入畫面。 【在舊系統中新增一個啟動點來呼叫ClientLoader.exe】 範例程式： procedure TForm1.Button1Click(Sender: TObject); var sViewExeName: string; StartupInfo: TStartupInfo; ProcessInformation: TProcessInformation; begin sViewExeName := 'D:\EEP_7\UClient\' 'ClientLoader.exe ' '"' '-UserParams:' Edit1.Text ';' 'PWD=' Edit2.Text ';' 'SHOWFORM=N "'; ShowMessage(sViewExeName); FillChar(StartupInfo,sizeof(StartupInfo),0); StartupInfo.cb := sizeof(StartupInfo); if not CreateProcess(nil,pchar(sViewExeName), nil,nil,false, CREATE_DEFAULT_ERROR_MODE,nil,nil, StartupInfo,ProcessInformation) then RaiseLastWin32Error; end; 【修改ClientRun.bin的登入畫面】 Function PassPassWord(out LoginData:Variant):Boolean; var PasswordForm:TPasswordForm; ShowForm:string; begin PasswordForm := TPasswordForm.Create(Application); try PasswordForm.cmbUserID.text:=GetUserParam('USERID');//USES APUTILS PasswordForm.edtPassword.Text:=GetUserParam('PWD'); ShowForm:=GetUserParam('SHOWFORM'); if ShowForm='N' then begin PasswordForm.btnOK.Click; end else PasswordForm.ShowModal; finally PasswordForm.Free; end; Result := ApPasswordBase.HaveLogin; if Result then LoginData := GetClientControlManager.GetVariantProp('Password'); end; 【說明】 1. 利用程式參數功能將參數傳遞給執行程式。 2. 利用EEP 的 UserParams參數功能，將使用者編號及密碼資訊傳遞給ClientRun.bin，然後將登入畫面隱藏，避免重覆登入。