Code
if _GetLogin then
begin
xUser:=CurrentUser.UserName;
if xUser='' then Exit;
if CheckUserRight(USERS_DOUBLE_AUTH, False) then
begin
ClearLogin;
if _GetLogin then
begin
if xUser=CurrentUser.UserName then
ClearLogin;
end;
end;
end;
Quote by farshad:Code
if _GetLogin then
begin
xUser:=CurrentUser.UserName;
if xUser='' then Exit;
if CheckUserRight(USERS_DOUBLE_AUTH, False) then
begin
ClearLogin;
if _GetLogin then
begin
if xUser=CurrentUser.UserName then
ClearLogin;
end;
end;
end;
dfdf