Fórum Login do windows #168331
08/07/2003
0
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
Curtir tópico
+ 0
Responder
Posts
08/07/2003
Basilio.sp
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)