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

[دلفــي]

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

New Bitmap Image.jpg

[یوسف زالی]

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

[دلفــي]

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

در اين حالت بايد مقدار كليد 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' );