Login do windows
Bem galera, eu tenho que desenvolver um programa que busque no banco de dados algumas informações da pessoa que se logou na máquina ...
ir até o banco e pegar a informação eu sei, o q eu não sei é como fazer para meu programa identificar quem se logou na máquina.
A máquina só funciona se o kara se logar, ae depois que ele logar, eu tenho que descobrir quem eh e comparar isso com o BD para saber quantos créditos ele tem ...
alguém sabe como fazer para que o programa saiba quem se logou no windows ???
ir até o banco e pegar a informação eu sei, o q eu não sei é como fazer para meu programa identificar quem se logou na máquina.
A máquina só funciona se o kara se logar, ae depois que ele logar, eu tenho que descobrir quem eh e comparar isso com o BD para saber quantos créditos ele tem ...
alguém sabe como fazer para que o programa saiba quem se logou no windows ???
Templar
Curtidas 0
Respostas
Basilio.sp
08/07/2003
Caro templar,
Creio que uma função como a que escrevi logo abaixo resolva seu problema.
// Declare na cláusula Uses, a unit Registry
function LogedUser: String;
var Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
result := Registro.ReadString(´username´);
Registro.Free;
end;
Você pode utilizar o resultado desta função assim:
edtUsuario := LogedUser;
Ou de qualquer maneira que vc queira
Creio que uma função como a que escrevi logo abaixo resolva seu problema.
// Declare na cláusula Uses, a unit Registry
function LogedUser: String;
var Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
result := Registro.ReadString(´username´);
Registro.Free;
end;
Você pode utilizar o resultado desta função assim:
edtUsuario := LogedUser;
Ou de qualquer maneira que vc queira
GOSTEI 0