تغییر حالت Automatic به Custom و بالعکس در تنظیمات DNS

[ابوالفضل عباسی]

من شخصا درست متوجه درخواستت نشدم ولی برای تغییر DNS و IP از این کدها استفاده میکنم:

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;

procedure  SetTCPIPDNSAddresses(sIPs : string );begin

  SaveStringToRegistry_LOCAL_MACHINE('SYSTEMCurrentC  ontrolSet' +'ServicesVxDMSTCP','NameServer',sIPs );

end;

برای DNS:

SetTCPIPDNSAddresses('1.2.3.4 5.6.7.8' );