با سلام

دوستان عزیز برای تغییر دادن آدرس DNS توی سایت MSN جستجو کردم و تا به حال به این نتیجه رسیدم :

If you have a need to dynamically change your DNS servers from your program, you can do so by calling the the following "SetTCPIPDNSAddresses()" function with a list of DNS IP addresses separated by a single space.


رجیستری :

uses Registry;



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;


ست کردن DNS :

procedure

  SetTCPIPDNSAddresses(

  sIPs : string );

begin

  //

  // if using Windows NT

  //

  SaveStringToRegistry_LOCAL_MACHINE(

    'SYSTEM\CurrentControlSet' +

    '\Services\Tcpip\Parameters',

    'NameServer',

    sIPs );



  //

  // if using Windows 95

  //

  SaveStringToRegistry_LOCAL_MACHINE(

    'SYSTEM\CurrentControlSet' +

    '\Services\VxD\MSTCP',

    'NameServer',

    sIPs );

end;


مثال :

SetTCPIPDNSAddresses('192.9.9.3');


موفق باشید .