Descobrir o hostname do computador

Delphi

29/04/2004

Gente,

Alguém qual comando ou procedimento onde posso descobrir o HOSTNAME (nome do computador na rede) do computador em que está executando a aplicação.

Muito obrigado,


[b:745b807242]Título editado. Favor não postar em caixa alta, pois equivale a gritar.[/b:745b807242]
Sandra


Chmeireles

Chmeireles

Curtidas 0

Respostas

Fer_nanda

Fer_nanda

29/04/2004

essa função retorna o nome do micro, talvés vc possa adaptá-la para o que deseja.

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;



GOSTEI 0
POSTAR