ADRESSE MAC POUR WINDOWS 2000
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
5 mai 2006 à 10:41
Francky23012301 Messages postés 400 Date d'inscription samedi 6 août 2005 Statut Membre Dernière intervention 11 février 2016 - 6 mai 2006 à 20:31
Francky23012301 Messages postés 400 Date d'inscription samedi 6 août 2005 Statut Membre Dernière intervention 11 février 2016 - 6 mai 2006 à 20:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37446-adresse-mac-pour-windows-2000
https://codes-sources.commentcamarche.net/source/37446-adresse-mac-pour-windows-2000
6 mai 2006 à 20:31
Je n'avais pas vu la remarque de DelphiProg. Cependant tu aurais pu essayer d'utiliser ton appli par un petit truc en plus.
A++
6 mai 2006 à 17:57
5 mai 2006 à 23:02
On pourrait aussi remercier Delphiprog de t'avoir trouvé le lien.
Franchement je te félicite pas : tu t'es simplement contenté de poster ici le code d'un autre. Pas très bien comme état d'esprit
A+
5 mai 2006 à 10:41
Sinon c'est pas grand chose mais tu peux remplacer ton :
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);
Par :
Result := Format( '%.2x-%.2x-%.2x-%.2x-%.2x-%.2x',
[Byte(Adapter.adapter_address[0]), Byte(Adapter.adapter_address[1]),
Byte(Adapter.adapter_address[2]), Byte(Adapter.adapter_address[3]),
Byte(Adapter.adapter_address[4]), Byte(Adapter.adapter_address[5])]);
Et je suis sur que y'aurai moyen de faire un truc du genre :
Result := Format( '%.2x-%.2x-%.2x-%.2x-%.2x-%.2x', [Adapter.adapter_address]);
Mais bon je vois pas trop comment transcrypté là !
Allé @+