ShellExecute

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