"mas est� n�o funciona se a m�quina n�o tiver placa de rede, ou for XP e n�o tiver logado na rede, estou certo?"
� pois o MacAddress � o identificador da placa de rede, se ela n�o existir n�o tem identificador. :) 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: quarta-feira, 13 de abril de 2005 17:32 Para: [email protected] Assunto: Re: [delphi-br] N�mero Serial mas est� n�o funciona se a m�quina n�o tiver placa de rede, ou for XP e n�o tiver logado na rede, estou certo? t+ ----- Original Message ----- From: Rafael Franco Carvalho To: [email protected] 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: [email protected] 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: [email protected] 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: [email protected] 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
