Tenho uma aqui... se servir... aí está...
function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: > > se quizer mandar ela pra gente dar uma olhada........ acho q fica mais > facil....... > > Luiz Escobar > Analista/Desenvolvedor: > WEB - HTML/JavaScript/PHP/MySQL > WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase > DOS - Clipper/Assembler xBase > SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k > LINUX - LAZARUS/Kylix/MySQL; > http://www.megasist <http://www.megasistema.com.br> ema.com.br <http://www.megasist <http://www.megasistema.com.br> ema.com.br> > > ----- Original Message ----- > From: Thiago Filiano (America Soft) > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Sent: Monday, February 12, 2007 3:16 PM > Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas > > então Luiz, > > tenho sim.. e eh aqui q esta o problema.. > > minha rotina esta pegando o MAC certinho, mas acontece que > tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo > assim está > identificando o MAC dele. > > a rotina foi feita para identificar o MAC somente com placa de rede ativa. > > não sei o que esta ocorrendo :( > > []'s > > Thiago > > Luiz Escobar escreveu: > > > > Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as > > q tenho são usando API´s.... > > > > Creio que isso seria de grande ajuda para todos. > > > > obrigado. > > > > Luiz Escobar > > Analista/Desenvolvedor: > > WEB - HTML/JavaScript/PHP/MySQL > > WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase > > DOS - Clipper/Assembler xBase > > SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k > > LINUX - LAZARUS/Kylix/MySQL; > > http://www.megasist <http://www.megasistema.com.br> ema.com.br <http://www.megasist <http://www.megasistema.com.br> ema.com.br> > <http://www.megasist <http://www.megasistema.com.br> ema.com.br <http://www.megasist <http://www.megasistema.com.br> ema.com.br>> > > > > ----- Original Message ----- > > From: Andre Veloso de Mesquita > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Friday, February 09, 2007 8:25 PM > > Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas > > > > Nota: No Windows é possível trocar o MAC. O MAC não será trocado na > > placa de > > rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, > > tente > > lê-lo no dispositivo e não usando uma API qq do Windows. > > > > [ ]'s > > > > ----- Original Message ----- > > From: "Luiz Escobar" <[EMAIL PROTECTED] <mailto:escobar%40megasistema.com.br> .com.br > <mailto:escobar%40megasistema.com.br> > > <mailto:escobar%40megasistema.com.br>> > > To: <[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br>> > > Sent: Friday, February 09, 2007 5:22 PM > > Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas > > > > BLZ Thiago...... > > Bom o modem não tem MAC-address, pode até ter um código de > > indentificação, > > mas não sei como pegar isso.... > > > > MAC-address é um número de série gravador na sua placa de rede, cada > > uma tem > > o seu (acontece de repetir, mas é raro, então esqueca isso por > > enquanto, mas > > saiba que acontece!)...... > > > > SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número MAC. > > > > exemplo de MAC : > > 00:0A:E6:40:1B:49 > > ou > > 000A:E640:1B49 > > ou > > 000AE6401B49 > > é um valor de 48 bit´s..... > > então a cada 281.474.976.710.655 vai se repetir.... rsrsrsrs > > não é bem assim não, mas deixa isso pra lá.... heheheheh > > > > O que pode mudar é o número de IP...... > > > > exemplo de IP´s internos, intranet: subistitua o X por um valor > entre 1 e > > 254 > > 192.168.0.x > > 10.x.x.x > > 169.x.x.x > > > > exemplo de IP´s externos, internet: subistitua o X por um valor > entre 1 e > > 254 > > 64.x.x.x > > 200.x.x.x > > 201.x.x.x > > etc... > > > > Quando ao XP, ele vai te dar sempre um número de IP, mas nem sempre > > vai ser > > o mesmo, primeiro ele vai procurar o DHCP na rede, se não achar ele vai > > pedir ao DHCP interno dele e vai receber um número 169.x.x.x, no 98 > > acho que > > vem zerado.....mas ja faz tempo nao lembro....... > > > > Luiz Escobar > > Analista/Desenvolvedor: > > WEB - HTML/JavaScript/PHP/MySQL > > WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase > > DOS - Clipper/Assembler xBase > > SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k > > LINUX - LAZARUS/Kylix/MySQL; > > http://www.megasist <http://www.megasistema.com.br> ema.com.br <http://www.megasist <http://www.megasistema.com.br> ema.com.br> > <http://www.megasist <http://www.megasistema.com.br> ema.com.br <http://www.megasist <http://www.megasistema.com.br> ema.com.br>> > > > > ----- Original Message ----- > > From: Thiago Filiano (America Soft) > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Friday, February 09, 2007 3:54 PM > > Subject: [delphi-br] Pegar o MAC do micro - duvidas > > > > Pessoal, estou com duvidas.. > > > > Alguém já tem essas respostas?? estou passando por um problema, que ta > > dificil de resolver, > > tenho um palpite, mas não consegui um definição certa. > > > > ai vai minhas duvidas: > > > > usando WINXP: qdo pego o serial MAC pelo Delphi > > > > quando estou com um cabo de rede ligado em meu pc mas com conexao > > desativada, recebo o numero de MAC? ou vem zerado (0000)?? > > > > quando estou com o cabo ligado e a rede ligada sei que vem a > > identificação 021AD122 (exemplo); > > quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? > > > > usando WIN98 > > > > quando estou com um cabo de rede ligado em meu pc mas com conexao > > desativada, recebo o numero de MAC? ou vem zerado (0000)?? > > > > quando estou com o cabo ligado e a rede ligada sei que vem a > > identificação 021AD122 (exemplo); > > quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? > > > > se eu tiver modem, e não placa de Rede... recebo algum valor para MAC?? > > > > com cabo desconectado mesmo assim recebo endereço de MAC?? > > > > alguém possui esses levantamentos?? > > > > muito grato! > > > > Thiago Filiano > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas]