A minha placa de rede também é OnBoard e funciona normalmente.
Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás – Brasil "O único verdadeiro fracasso é deixar de tentar" Max Heindel -----Mensagem original----- De: Alosi yarru [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 14 de abril de 2005 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Número Serial Tem mais uma, na minha máquina o resultado vem sempre zerado, já vi isso em outras máquinas tbm. Tenho pentium 4 2.0, placa pcchips, rede on-board, windows XP. t+ ----- Original Message ----- From: Rafael Franco Carvalho To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 13, 2005 5:20 PM Subject: RES: [delphi-br] Número Serial Use esta aqui... Mas não se esqueça de colocar "NB30" na clausula uses. function GetAdapterInfo(Lana: Char): String; var Adapter: TAdapterStatus; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBRESET); NCB.ncb_lana_num := Lana; if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBASTAT); NCB.ncb_lana_num := Lana; NCB.ncb_callname := '*'; FillChar(Adapter, SizeOf(Adapter), 0); NCB.ncb_buffer := @Adapter; NCB.ncb_length := SizeOf(Adapter); if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; Result := IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[5]), 2); end; function GetMACAddress: string; var AdapterList: TLanaEnum; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBENUM); NCB.ncb_buffer := @AdapterList; NCB.ncb_length := SizeOf(AdapterList); Netbios(@NCB); if Byte(AdapterList.length) > 0 then Result := GetAdapterInfo(AdapterList.lana[0]) else Result := 'mac not found'; end; Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás - Brasil "O único verdadeiro fracasso é deixar de tentar" Max Heindel -----Mensagem original----- De: Thomaz [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 13 de abril de 2005 16:59 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Número Serial Valeu a dica Rafael. Para o que eu preciso acho que vou precisar do Mac-Address. Voce pode me enviar a função ? Abraço, Thomaz. -----Mensagem original----- De: Rafael Franco Carvalho [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 13 de abril de 2005 16:08 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Número Serial Olá amigo, Você quer fazer tipo uma identificação única da estação? Use o endereço IP, ou nome da estação, é mais fácil e não tem erro, a menos que seja uma rede com IP dinâmico, mas mesmo assim ainda sobra o nome da estação. Agora se você quiser individualidade mesmo, utilize o Mac-Address, é uma espécie de número serial da placa de rede, dizem que não tem duas iguais. Se quiser as funções é só pedir. Abraços, Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás - Brasil "O único verdadeiro fracasso é deixar de tentar" Max Heindel -----Mensagem original----- De: pulschen2004 [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 13 de abril de 2005 15:44 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Número Serial Preciso saber o nº serial da máquina (ou do HD ?) para identificação da estação. Alguem pode me ajudar ? Grato desde já. Thomaz -- <<<<< 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos __________ NOD32 1.1059 (20050412) Information __________ This message was checked by NOD32 Antivirus System. http://www.nod32.com -- <<<<< 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- 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!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.7 - Release Date: 12/04/05 [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos __________ NOD32 1.1059 (20050412) Information __________ This message was checked by NOD32 Antivirus System. http://www.nod32.com -- <<<<< 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília ---------------------------------------------------------------------------- -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos __________ NOD32 1.1060 (20050414) Information __________ This message was checked by NOD32 Antivirus System. http://www.nod32.com -- <<<<< 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] ou [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