const

 MAX_ADAPTER_NAME_LENGTH        = 256;

 MAX_ADAPTER_DESCRIPTION_LENGTH = 128;

 MAX_ADAPTER_ADDRESS_LENGTH     = 8;

 IPHelper = 'iphlpapi.dll';

 

 MIB_IF_TYPE_OTHER     = 1;

 MIB_IF_TYPE_ETHERNET  = 6;

 MIB_IF_TYPE_TOKENRING = 9;

 MIB_IF_TYPE_FDDI      = 15;

 MIB_IF_TYPE_PPP       = 23;

 MIB_IF_TYPE_LOOPBACK  = 24;

 MIB_IF_TYPE_SLIP      = 28;

 

type

 time_t = Longint;

 

 IP_ADDRESS_STRING = record

   S: array [0..15] of Char;

 end;

 IP_MASK_STRING = IP_ADDRESS_STRING;

 PIP_MASK_STRING = ^IP_MASK_STRING;

 

 PIP_ADDR_STRING = ^IP_ADDR_STRING;

 IP_ADDR_STRING = record

   Next: PIP_ADDR_STRING;

   IpAddress: IP_ADDRESS_STRING;

   IpMask: IP_MASK_STRING;

   Context: DWORD;

 end;

 

 PIP_ADAPTER_INFO = ^IP_ADAPTER_INFO;

 IP_ADAPTER_INFO = record

   Next: PIP_ADAPTER_INFO;

   ComboIndex: DWORD;

   AdapterName: array [0..MAX_ADAPTER_NAME_LENGTH + 3] of Char;

   Description: array [0..MAX_ADAPTER_DESCRIPTION_LENGTH + 3] of Char;

   AddressLength: UINT;

   Address: array [0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of BYTE;

   Index: DWORD;

   Type_: UINT;

   DhcpEnabled: UINT;

   CurrentIpAddress: PIP_ADDR_STRING;

   IpAddressList: IP_ADDR_STRING;

   GatewayList: IP_ADDR_STRING;

   DhcpServer: IP_ADDR_STRING;

   HaveWins: BOOL;

   PrimaryWinsServer: IP_ADDR_STRING;

   SecondaryWinsServer: IP_ADDR_STRING;

   LeaseObtained: time_t;

   LeaseExpires: time_t;

 end;

 

type

 TForm1 = class(TForm)

   Memo1: TMemo;

   procedure FormCreate(Sender: TObject);

   function GetAdapterGUID: String;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

 

var

 Form1: TForm1;

 

implementation

 

 function SetAdapterIpAddress(szAdapterGUID: PChar; dwDHCP, dwIP, dwMask, dwGateway: DWORD): DWORD; stdcall; external 'iphlpapi.dll';

 

 function GetAdaptersInfo(pAdapterInfo: PIP_ADAPTER_INFO;

   var pOutBufLen: ULONG): DWORD; stdcall; external IPHelper;

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

var

 InterfaceInfo,

 TmpPointer: PIP_ADAPTER_INFO;

 Len: Cardinal;

 strl: TStringList;

begin

 try

   strl := TStringList.Create;

   strl.Text := GetAdapterGUID;

   if strl.Count > 0 then

     SetAdapterIpAddress(PChar(strl.Strings[0]),0,0,inet_addr('255.255.255.0'),inet_addr('198.162.0.147'));

 finally

   strl.Free;

 end;

end;

 

function TForm1.GetAdapterGUID: String;

var

 InterfaceInfo,

 TmpPointer: PIP_ADAPTER_INFO;

 IP: PIP_ADDR_STRING;

 Len: ULONG;

 AdapterType: String;

begin

 if GetAdaptersInfo(nil, Len) = ERROR_BUFFER_OVERFLOW then

 begin

   GetMem(InterfaceInfo, Len);

   try

     if GetAdaptersInfo(InterfaceInfo, Len) = ERROR_SUCCESS then

     begin

       TmpPointer := InterfaceInfo;

       repeat

         if Result <> '' then

           Result := Result+#13#10;

         Result := Result+TmpPointer^.AdapterName;

         TmpPointer := TmpPointer.Next;

       until TmpPointer = nil;

     end;

   finally

     FreeMem(InterfaceInfo);

   end;

 end;

end;