IP addresse änderen

[Centrii]

Hi Michdan,

ich ändere die IP und Subnet aus meinem Programm so:

Delphi-Quellcode:

procedure TFSetIPMain.SetIPConfig(IP, SubNet, Gateway, Metric: String);
begin
  if IP <> '' then begin
    if Subnet <> '' then begin
      ShellExecuteAndWaitA(application.Handle,'open',PChar('C:\Windows\System32\netsh.exe'),PChar('interface ip set address "'+Adapter+'" static '+IP+' '+Subnet+' '+Gateway+' '+Metric+''),'',SW_Hide,true);
    end
    else MessageDlg('There is no Subnetmask specified !!', mtWarning, [mbOK], 0);
  end
  else MessageDlg('There is no IP-Address specified !!', mtWarning, [mbOK], 0);
end;

DHCP kannst du so wieder aktivieren:

Delphi-Quellcode:

procedure TFSetIPMain.SetDHCP;
begin
  ShellExecuteAndWaitA(application.Handle, 'open', PChar('C:\Windows\System32\netsh.exe'), PChar('interface ip set address "' + Adapter + '" dhcp'), '', SW_Hide, true);
  ShellExecuteAndWaitA(application.Handle, 'open', PChar('C:\Windows\System32\netsh.exe'), PChar('interface ip set dns "' + Adapter + '" dhcp'), '', SW_Hide, true);
end;

Ich denke das hilft dir weiter.