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

برای تغییر نحوه تنظیم آدرس آی پی DNS شبکه از حالت دستی به اتوماتیک و بالعکس بدون نیاز به ریستارت کردن کامپیوتر و فقط با استفاده از کد در داخل برنامه چه راهکاری رو پیشنهاد می کنید ؟! ( فقط تغییر حالا نه تنظیم و ست کردن آدرس DNS )

ضمیمه 137158

شما اونجا یه آی پی الکی می دی، بعد تو رجیستری می گردی دنبال کلیدی که این آی پی توشه، بعد اون کلید می شه دقیقا جایی که باید دست بزنی بهش.

نقل قول:

---

نوشته شده توسط یوسف زالی

شما اونجا یه آی پی الکی می دی، بعد تو رجیستری می گردی دنبال کلیدی که این آی پی توشه، بعد اون کلید می شه دقیقا جایی که باید دست بزنی بهش.

---

در اين حالت بايد مقدار كليد EnableDHCP تغير داده بشه ولي براي اعمال تغييرات نياز به ريستارت كردن سيستم هست

من شخصا درست متوجه درخواستت نشدم ولی برای تغییر 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' );