Olá Usa essa função
function NomeComputador : String;
var
lpBuffer : PChar;
nSize : DWord;
const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;
begin
nSize := Buff_Size;
lpBuffer := StrAlloc(Buff_Size);
GetComputerName(lpBuffer,nSize);
Result := String(lpBuffer);
StrDispose(lpBuffer);
end;
--- 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 >>>>>
Links do Yahoo! Grupos
_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
