ShellExecute

[JB-1990]

keiner ne idee?

[mkinzler]

Bei welchem Parameter?

[JB-1990]

das ding is, dass der Befehl ShellExec so weit funzt (probiert mit IEXPLORE.EXE)
sobald es jedoch um CMD.EXE geht, trägt er meinen Befehl nicht ein, ob ipconfig oder dem zuvor erwähnten Befehl zum ändern der localen IP
LG

[mkinzler]

Und welchen der Paramter mahnt er nun an?

[JB-1990]

keinen, er macht es einfach nicht, Programm läuft, macht aber nicht, was es soll

[mkinzler]

Was hast du als Pfad angegeben?
Was für ein Code wird zurückgeliefert?

[JB-1990]

so sieht das ding aus:

Delphi-Quellcode:

procedure TFIP.BChangeClick(Sender: TObject);
 var netzname,ip,nm,dns,befehl :string;
begin
 netzname :=EName.Text;
 ip       :=EIP1.Text+'.'+EIP2.Text+'.'+EIP3.Text+'.'+EIP4.Text;
 nm       :=ENM1.Text+'.'+ENM2.Text+'.'+ENM3.Text+'.'+ENM4.Text;
 dns      :=EDNS1.Text+'.'+EDNS2.Text+'.'+EDNS3.Text+'.'+EDNS4.Text;
 befehl   :='netsh interface ip set address "'+netzname+'" static '+ip+' '+nm+' '+dns+' 1';
 ShellExecute(handle,nil,'cmd.exe',PChar(befehl),nil,0);
end;

[mkinzler]

Versuch mal

Delphi-Quellcode:

befehl   :='interface ip set address "'+netzname+'" static '+ip+' '+nm+' '+dns+' 1';
ShellExecute(handle,'open', 'netsh',PChar(befehl),nil,0);

[JB-1990]

nix -.-

[Fussball-Robby]

Zitat:

Zitat von JB-1990

nix -.-

Heißt? Konsole geht garnicht auf? Oder wird der Befehl nicht ausgeführt?
Im ersten Fall hilft es eventuell den letzten Parameter von 0 (entspricht dort SW_HIDE, also versteckt) in SW_SHOWNORMAL oder SW_SHOW zu ändern. Ansonsten mal ein '/K' vor den Befehl setzen, das bewirkt manchmal Wunder...