nome do meu computador na rede

Delphi

20/12/2004

oi galera, vc sabem como eu posso pegar o nome do meu computador na rede ? e que eu queria que aparecere no status bar do meu programa o nome do computador que esta executando o programa .....

muito obrigado...


Anicetojunior

Anicetojunior

Curtidas 0

Respostas

Xanatos

Xanatos

20/12/2004

function RetNomeComputador : string;
var
  registro : tregistry;
begin
  Registro := TRegistry.Create; 
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  if Registro.OpenKey(´System\CurrentControlSet\Control\ComputerName\ComputerName´, false) then
  begin
    result := Registro.ReadString(´ComputerName´);
  end;
  Registro.Free;
end;


Retorna o nome do teu PC


GOSTEI 0
Anicetojunior

Anicetojunior

20/12/2004

era isso mesmo !!! muito obrigado.


GOSTEI 0
Xanatos

Xanatos

20/12/2004

Para complementar e ja que vc pode vir a querer tambem...

uses
  Winsock;

{...}

function getIPs: Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;


Retorna o IPs caso precise!!!


GOSTEI 0
Anicetojunior

Anicetojunior

20/12/2004

putz nota 10, valeu mesmo , vai ser muito util p/ mim .....

muito obrigado.............


GOSTEI 0
POSTAR