Fórum Descobrir nome da máquina #154883

Função que retorna o nome do Computador
Uses Registry;
function TForm1.Getcomputer : string;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey(´System\CurrentControlSet\Services\VXD\VNETSUP´,false);
result:=registro.readstring(´ComputerName´);
end;



Retorna o IP de sua máquina no momento em que você está conectado
function GetIP:string;
//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format(´¬d.¬d.¬d.¬d´,
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;

amigo dor_poa, agradeço sua ajuda.
só que nao pode ser referente a minha máquina e sim alguma da rede, entao [b:bb0e0552c2]preciso[/b:bb0e0552c2] através de um ip descobrir o nome do computador e [b:bb0e0552c2]outra[/b:bb0e0552c2] e através do nome descobrir o ip.
por favor me ajude! :cry: