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]
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
