Delphi FAQ Sieć

Jak pobrać adres MAC

TOY
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;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:=Get_MACAddress;
end;

4 komentarzy

e to juz przeciez bylo :P
tyle ze na wykozystaniu unitow z delphi a nie bibliotek windowsa :D
No ale tez sie przyda :D

tyle ze trzeba jeszcze sie pobawic w oddzielenie dwukropniakami

Dobra, a co jeśli chce pobrać MAC karty na komputerze który łączy sie z moją aplikacją? Taka kontrola tożsamości na poziomie sprzętowym...

A jak mam 2 sieciówki???