Ajuda - Nome do computador

Question

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...

Mauricio · Answer

[quote:c31be2e278=�emej�]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[/quote:c31be2e278]use esta funcao...function Getcomputer : string;varregistro : tregistry;beginregistro:=tregistry.create;registro.RootKey := HKEY_LOCAL_MACHINE;registro.openkey(�SystemCurrentControlSetServicesVXDVNETSUP�,false);result:=registro.readstring(�ComputerName�);end;...

Emej · Answer

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

Diogoalles · Answer

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

Emej · Answer

Obrigado pela resposta DiogoallesMas 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:[code:1:8295321ba3]ExtractFilePath(Application.ExeName)[/code:1:8295321ba3]mas eu preciso o nome do computador!ValeuEMEJ...

F�rum Ajuda - Nome do computador #271992