eigene ip adresse ändern

[danku]

Zitat von GeorgPeifer:

Erst Betriebssystem rausfinden (Zur Sicherheit), dann mit WinExec netsh aufrufen - habs nur mit XP getestet...

Delphi-Quellcode:

const
  { operating system (OS)constants }
  cOsUnknown  = -1;
  cOsWin95    =  0;
  cOsWin98    =  1;
  cOsWin98SE  =  2;
  cOsWinME    =  3;
  cOsWinNT    =  4;
  cOsWin2000  =  5;
  cOsXP       =  6;

...


procedure TForm1.IPLabelClick(Sender: TObject);
var windir:string;
    os:integer;
begin
  os:=GetOperatingSystem;
  If os=cOsWin95   then exit;
  If os=cOsWin98   then exit;
  If os=cOsWin98SE then exit;
  If os=cOsWinME   then exit;
  If os=cOsWinNT   then windir:=WindowsDirectory+'system32\';
  If os=cOsWin2000 then windir:=WindowsDirectory+'system32\';
  If os=cOsXP      then windir:=WindowsDirectory+'system32\';
  WinExec(PChar(windir+'netsh interface ip set address name = "LAN-Verbindung" source = static addr = 192.168.1.28 mask = 255.255.255.0'),SW_SHOWNORMAL);
end;

wie kann ich erreichen das die statische adresse in der WINEXEC-Anweisung die Variable inputstring übernimmt?

Delphi-Quellcode:

  InputString:= InputBox('Neue IP-Adresse', '', edlocalip.text);
  edlocalip.Text := inputstring;

  WinExec(PChar(windir+'netsh interface ip set address name = "LAN-Verbindung" source = static addr = 192.168.1.28 mask = 255.255.255.0'),SW_SHOWNORMAL);