MAC ermitteln

[Masterof]

Hallo!!

Ich habe in meinen Büchern nochmal geschaut, und bin auf dieses gestossen. Das ist etwas einfacher.

Source:

Delphi-Quellcode:

Type 
  TGUID = Record 
   a ,b, d, m, s : word; 
   Mac : Array[1..16] of byte; 
end; 

function CoCreateGuid(var GUID : TGUID): HResult; stdcall; 
far external 'OLE32.dll'; 

function GetMacAdress : string; 
var g: TGUID; 
    i: integer; 
begin 
CocreateGuid(g); 
result := ''; 
for i:= 1 to 6 do 
Result := Result + IntToHex(g.Mac[i], 2) + '-'; 
Result[length(result)] := #0; 
end; 




procedure Tfrmmain.btmacClick(Sender: TObject); 
begin 
lblmac.Caption:= GetMacAdress; 
end;

Danke!

MfG Masterof

[edit=Sharky]Delphi-Tags gesetzt. Bitte beim nächsten mal selber machen Mfg, Sharky[/edit]