比如:第二个问题,可以不调用 X3X.Logon 函数
直接在 X3X.Run('', 'UserIO=ZS', '', '', '')
修改 系统空间\系统运行库\系统初始化
函数 procedure TINIT.DoRun;
if not FLogoned then
begin //SMP 200611219 Parameters
FLogoned := InternalLogon(Parameters); //此处原来是 FLogoned := InternalLogon();
//这里Parameters='UserID=ZS'
if not FLogoned then
begin
Terminate;
Exit;
end;
end;
在 InternalLogon 方法中,根据 UserID=ZS 得到ZS的用户名,参考 LoginUseAD 方法登陆 |