Получить сетевые настройки IPv4

[AppData]

Здравствуйте, скажите пожалуйста как получить в Label1 2 3 4 5

Сетевые настройки

IP более понятно а вот маска, основной шлюз, DNS 1-2

как?

[Пепел Феникса]

например так http://msdn.microsoft.com/ru-ru/libr...(v=vs.85).aspx

[AppData]

Пепел Феникса, аммм( не подскажете как этим пользоваться? ))

[AppData]

Ничего хорошего у меня не получается. помогите извлечь все данные
а не только маску подсети

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  type
MIB_IPADDRROW = record 
dwAddr : DWORD; 
dwIndex : DWORD; 
dwMask : DWORD; 
dwBCastAddr : DWORD; 
dwReasmSize : DWORD; 
unused1 : Word;
unused2 : Word; 
end; 
PMIB_IPADDRTABLE = ^MIB_IPADDRTABLE;
MIB_IPADDRTABLE = record 
dwNumEntries : DWORD;
table : array[0..0] of MIB_IPADDRROW; 
end; 

function GetIpAddrTable(pIpAddrTable : PMIB_IPADDRTABLE; var pdwSize : ULONG; bOrder : BOOL) : DWORD; stdcall; external 'iphlpapi.dll' name 'GetIpAddrTable';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
type
T4Bytes = array[0..3] of Byte;
P4Bytes = ^T4Bytes;
var
p : PMIB_IPADDRTABLE;
i, n : Cardinal;
j : P4Bytes;
begin
n := 0;
GetIpAddrTable(nil, n, True);
GetMem(p, n);
GetIpAddrTable(p, n, True); 
n := p.dwNumEntries;
for i := 0 to n - 1 do
begin
j := @p^.table[i].dwMask;
ShowMessage(Format('%d.%d.%d.%d', [j^[0], j^[1], j^[2], j^[3]]));
end;
FreeMem(p);
end;

end.

[AppData]

dwAddr : DWORD;
dwMask : DWORD;

IP адрес и Маска, а как же ДНС , ПОДСЕТЬ И ТАК ДАЛЕЕ: ??? ПОМОГИТЕ, УВАЖАЕМЫЕ ПРОГРАММИСТЫ

[AppData]

уважаемые программисты, выручайте пожалуйста! очень нуждаюсь в вашей помощи!