Fórum Usuário Logado no Windows #138216
18/02/2003
0
Quem puder me ajudar agradeço....
Reaver
Curtir tópico
+ 0Posts
18/02/2003
Carnette
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;
Gostei + 0
18/02/2003
Navoid
Gostei + 0
18/02/2003
Dor_poa
Gostei + 0
19/02/2003
Pedro
Isso em windows 2000 não funciona
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)