function TSYSTEMINTERFACE.ShowLogonFormEx(var ALogonID, APassword: string;
out APerson: TPersonMember): Boolean;
begin
Result := TSystemLoginDialog.ShowLogonForm(ALogonID, APassword, APerson, false);//true改成false
end;
if sysutils.uppercase(ALogonID)= 'SYSTEM' then
Result := TSystemLoginDialog.ShowLogonForm(ALogonID, APassword, APerson, True)
else
Result := TSystemLoginDialog.ShowLogonForm(ALogonID, APassword, APerson, false);