Usuário Logado no Windows
Como faço para Saber Qual o Usuário que está logado no windows?
Quem puder me ajudar agradeço....
Quem puder me ajudar agradeço....
Reaver
Curtidas 0
Respostas
Carnette
18/02/2003
Usuario logado
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;
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
Navoid
18/02/2003
Utilize a função GetUserName()
GOSTEI 0
Dor_poa
18/02/2003
Nesta eu sobreio..... :roll: Já responderam..
GOSTEI 0
Pedro
18/02/2003
Usuario logado
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;
Isso em windows 2000 não funciona
GOSTEI 0