Fórum Usuário Logado #269848

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; 

procedure PegaNetInfo;
var
   BufLen : DWORD;
   Buffer : PChar;
begin
  BufLen := 32+1;
  Buffer := #0;
  try
    GetMem( Buffer, BufLen );
    case WNetGetUser(nil, Buffer, BufLen) of
      NO_ERROR:             SysInfoRec.UserConName := Buffer;
      ERROR_NOT_CONNECTED:  SysInfoRec.UserConName := ´Not Connected´;
      ERROR_NO_NETWORK:     SysInfoRec.UserConName := ´No Network´;
      else                  SysInfoRec.UserConName := ´Other Network error´;
    end;
  finally
    FreeMem( Buffer );
  end; // try
end; {- GetNetInfo }

function NomeUsuario: string;
begin
PegaNetInfo();
Result:=SysInfoRec.UserConName;
end;

edt.Text:=NomeUsuario;

  private
    { Private declarations }
    usuario: string;