Scalabium Software

#88:How do I find a MAC address?

The code below gets your MAC address. Should you have more than one NIC in your machine you will get the MAC off the first one.

function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll';

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

Copyrightc 1998-2008, Scalabium Software. All rights reserved.
webmaster@scalabium.com

July 5, 2000