Trouver la MAC address

unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private { Private-Deklarationen}
public { Public-Deklarationen}
end;
var Form1: TForm1;
function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll';
implementation
{$R *.DFM}

function Get_MACAddress: string;
var
g : TGUID;
i : Byte;
r : Word;
begin
Result := '';
CoCreateGUID(g);
for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Get_MACAddress);
end;
end.
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour11/11/2001
VisualisationVu 920 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur