Usuário do computador

Delphi

25/01/2007

Tenho essa funçã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

Facc

Curtidas 0

Respostas

Facc

Facc

25/01/2007

sobe


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

25/01/2007

Colega,

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;



GOSTEI 0
Facc

Facc

25/01/2007

Valeu

Funcionou


GOSTEI 0
POSTAR