olha, eu não testei, mas acho que sei qual o prob
fuçando no win2k aqui, descobri que essa chave não tem o nome da
maquina. a chave que encontrei com o nome são:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\ComputerName\ComputerName
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName
espero q tenha ajudado
[]'s
--- Em delphi-br@yahoogrupos.com.br, "pcinfowave" <[EMAIL PROTECTED]> escreveu
>
> Ola...
>
> Uso a fução GetNetStation p/ detectar o nome do micro na rede. Com
> Win98 funciona bem, exibindo o nome da máquina, porem c/ Win XP nao
> deu certo.
>
> Alguem poderia me dizer qual a função que me exibirá o nome do micro
> no WinXP?
>
> //FUNCTION
> ##################################################################
> function GetNetStation(Tipo:Integer) : String;
> var Reg : TRegistry;
> begin
> Reg := TRegistry.Create;
> Result := '(n/a)';
> with Reg do
> Try
> RootKey := HKEY_LOCAL_MACHINE;
> if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP',
> False) then
> begin
> Case Tipo of
> 1: Result := ReadString('ComputerName');
> 2: Result := ReadString('Workgroup');
> 3: Result := ReadString('Comment');
> end;
> end;
> Finally
> CloseKey;
> Free;
> end;
> end;
>
>
> USA-se assim:
>
> BarraStat.Panels[2].Text := 'Máquina: ' + GetNetStation(1);
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
