[alikoder]

нужно определить MAC адресс сетевой карты, по которой пользователь имеет доступ к нету, и записать его в текст edit-а

[alikoder]

неужели не кто не знает?

[Rat]

Удаленно или локально?

Если удаленно, то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Uses Winsock;   Function SendARP (DestIp: DWORD; srcIP: DWORD; pMacAddr: pointer; PhyAddrLen: Pointer): DWORD;stdcall; external 'iphlpapi.dll';   Function getRemoteMacAdress (var address: String): Boolean; var   dwRemoteIP: DWORD;   PhyAddrLen: Longword;   pMacAddr : array [0..1] of Longword;   temp: array [0..5] of byte;   I: Byte; begin   Result := false;   dwremoteIP := inet_addr (@address[1]);   if dwremoteIP <> 0 then begin     PhyAddrLen := 6;     if SendARP (dwremoteIP, 0, @pMacAddr, @PhyAddrLen) = NO_ERROR then begin       if (PhyAddrLen <> 0) and (pMacAddr[0] <> 0) then begin          Move (pMacAddr, temp, 6);          address := '';          For I := 0 to 5 do address := address + inttohex (temp[i], 2)+'-';          Delete (address, Length (address), 1);          Result := true;       end;     end;   end; end;

[alikoder]

пасиб тоже полезно, но хочется локально, мас моей сетевухи

[Rat]

Нет, ну совсем ленивый контингент пошел.
Лови http://delphisources.ru/pages/faq/ba...c_address.html

[alikoder]

пасиб помог