تغییر حالت 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' );