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]