Hallo ich möchte gerne mit meinem Programm die DNS-Serveraddresse in den TCPIP Eigenschaften eintragen lassen.
Bei meinem Rechner bekomme ich das auch folgendermaßen hin:
Delphi-Quellcode:
var reg:TRegistry;
ergebnis:string;
newValue:String;
begin
newValue:='145.253.2.171';
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey( '\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{016E2DD2-BF67-4CEE-976F-7354D79F3B60}', False); //Schlüssel öffnen
ergebnis:= reg.ReadString('NameServer'); //Wert auslesen
reg.WriteString('NameServer',newValue);
reg.Free; //Freigeben
ShowMessage('Von '+ergebnis+' geändert in '+newValue);
Allerdings funktioniert diese Methode nur bei meinem Rechner, wegen der
GUID {016E2DD2-BF67-4CEE-976F-7354D79F3B60}, die ja bei jedem Rechner an der stelle anders ist. Diese bekomme ich auch leider nicht raus. Jetzt wollte ich mal fragen, ob vielleicht jemand ne andere Möglichkeit kennt, und mir vielleicht helfen kann.