这是我测试的代码
业务模型\系统空间\系统运行库\自动登录
static function TAUTOLOGON.AutoLogon(ALogon: String; var AID: String; var AMessage: String; var AClientAccount: String): Boolean;
var
lAA: TAutoLogonA;
begin
// 我加的 //获得用户名 和公司名
AID := 'ry1';
Result := True;
AClientAccount := 'SUPPORT';
exit;
///
lAA := TAutoLogonA.Create();
with lAA do
begin
FLogon := ALogon;
Logon;
Result := FSuccess;
AID := FID;
AMessage := FMessage;
AClientAccount := FClientAccount;
end;
end;
系统初始化功能
procedure TINIT.DoRun;
......
FLogoned := InternalLogon('aaa'); //我修改的
...........
你可以自己测试下,我是不弹登录框的。