Fórum Usuário do computador #336740
25/01/2007
0
Tenho essa função
Só que traz o usuário da rede... eu gostaria que trouxesse o usuário do computador... Meu computador não está logado em rede.
E tbm saber se o computador está logado na rede ou não
function TForm1.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;Só que traz o usuário da rede... eu gostaria que trouxesse o usuário do computador... Meu computador não está logado em rede.
E tbm saber se o computador está logado na rede ou não
Facc
Curtir tópico
+ 0
Responder
Posts
25/01/2007
Facc
sobe
Responder
Gostei + 0
25/01/2007
Aroldo Zanela
Colega,
Testa essa aqui:
Testa essa aqui:
const Max = 254;
var Nome: string;
Tam: DWORD;
begin
Tam := Max - 1;
SetLength(Nome, Max);
GetUserName(PChar(Nome), Tam);
SetLength(Nome, Tam);
Result := Nome;
end;
Responder
Gostei + 0
25/01/2007
Facc
Valeu
Funcionou
Funcionou
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)