Fórum verificacao de usuarios #168122

Ola K-ROL sou denovo.

Bom, pelo que eu entendi voce quer que um usuario logado em uma maquina não efetue o login em outra, ne?
Se for bem crie uma tabelinha do tipo:
TBLog
Nome_Usuario
ai quando o usuario logar em uma maquina voce faz uma busca se encontrar ele nesta tabela voce da o erro, se não voce insere ele, no fim e so deletar o nome dele.
Ajudou?

Ate +!

P.S.:Exite um registro que pega o nome da maquina local eu não me lembro qual que é, mas se voce presicar eu posso revirar meu armario e arruma-lo para voce, ai voce insere um campo na tabela acima e coloca o nome da maquina, depois na hora do erro voce pode avisar em que maquina o usuario esta.

A função abaixo identifica o usuário que esta conectado na rede windows.
Não funciona com o Windows XP.

function LogUser : String;
{Requer a unit Registry declarada na clausula Uses da Unit}
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
begin
result := Registro.ReadString(´username´);
end;
Registro.Free;
end;


Espero que seja isto

Marconi