لطفا مسیر رو توی رجیستری با این مسیر تعویض کنید :

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\T  cpip\Parameters\Interfaces\{1BCEB810-EA46-4EA9-A7E4-1CC180E687EB}\


خودم هم امتحانش کردم کار میکنه :

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Registry, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}

procedure

  SaveStringToRegistry_LOCAL_MACHINE(

  sKey, sItem, sVal : string );

var

  reg : TRegIniFile;

begin

  reg := TRegIniFile.Create( '' );

  reg.RootKey := HKEY_LOCAL_MACHINE;

  reg.WriteString(

    sKey, sItem, sVal + #0 );

  reg.Free;

end;



procedure

  SetTCPIPDNSAddresses(

  sIPs : string );

begin

  //

  // if using Windows NT

  //

  SaveStringToRegistry_LOCAL_MACHINE(

    'SYSTEM\ControlSet001' +

    '\Services\Tcpip\Parameters\Interfaces\{1BCEB  810-EA46-4EA9-A7E4-1CC180E687EB}',

    'NameServer',

    sIPs );

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

SetTCPIPDNSAddresses(edit1.Text);





end;



end.


امیدوارم مفید باشه .
موفق باشید .
گلادیاتور .