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);