IP wechsel

[Natcree]

Hallo habe ein Problem

Mit folgenden Code möchte ich meine Local IP Addresse ändern.

Delphi-Quellcode:

s:=tstringlist.Create;
s.LoadFromFile('Netzwerkeinstellung.txt');
ShellExecute(application.Handle,'open','C:\Windows\System32\netsh', 'interface ip set address name = "Drahtlosnetzwerkverbindung" source = static addr = 192.168.178.26 mask = 255.255.255.0 gateway = 192.168.178.1', Nil, SW_SHOWNORMAL);

was auch funktioniert

jetzt möchte ich aber die daten wie "Drahtlosnetzwerkverbindung" aus einer stringlist nehmen.

ShellExecute(application.Handle,'open','C:\Windows\System32\netsh', 'interface ip set address name = '+s.strings[0]+' source = static addr = 192.168.178.26 mask = 255.255.255.0 gateway = 192.168.178.1', Nil, SW_SHOWNORMAL); er zeigt mir nen fehler an

incompatible typen string und pansichar

wie kriege ich das gelöst

[Darlo]

Probier mal aus alle Parameter in
PCHAR('C:\Windows\System32\netsh') zu ändern.

[baumina]

Durch casten:

ShellExecute(application.Handle,'open','C:\Windows\System32\netsh', PAnsiChar('interface ip set address name = "'+s.strings[0]+'" source = static addr = 192.168.178.26 mask = 255.255.255.0 gateway = 192.168.178.1'), Nil, SW_SHOWNORMAL);

[Natcree]

Danke euch funtz jetzt

[hathor]

"C:\Windows\System32\" kann man weglassen.

Manche Befehle funktionieren nur als Admin,
dann so:

Delphi-Quellcode:

var strParams : string;
begin
strParams:= '.....';
RunAsAdmin(Application.Handle,'netsh', strParams);
...