Ajuda - Nome do computador

Delphi

11/03/2005

Pessoal...boa tarde(14:00)
Como eu faço para pegar o nome do computador?

Aquele que aparece quando você entra em propridades da rede e clica na aba identificação!!!!

Obrigado....

EMEJ


Emej

Emej

Curtidas 0

Respostas

Mauricio

Mauricio

11/03/2005

Pessoal...boa tarde(14:00) Como eu faço para pegar o nome do computador? Aquele que aparece quando você entra em propridades da rede e clica na aba identificação!!!! Obrigado.... EMEJ



use esta funcao...
function 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
Emej

Emej

11/03/2005

Obrigado Mauricio...funcionou perfeitamente.

Agora me explica como fazer isto em rede....por exemplo:
um cliente pegar o nome do servidor!!!!


GOSTEI 0
Diogoalles

Diogoalles

11/03/2005

para descobrir o nome do servidor eu tive que usar no meu sistema um componente que lista os computadores da rede e ai seleciono o computador
Vc pode ver o componente NetResources da TCF em www.elivaldo.com.br

abraço
Diogo


GOSTEI 0
Emej

Emej

11/03/2005

Obrigado pela resposta Diogoalles
Mas eu quero pegar o nome do computador(servidor) quando eu iniciar o programa na máquina cliente.
Eu consegui pegar o endereço desta maneira:

ExtractFilePath(Application.ExeName)


mas eu preciso o nome do computador!

Valeu

EMEJ


GOSTEI 0
POSTAR