delphi执行ShellExecute

Posted 2023-03-31

ShellExecute(Handle, 'open', 'netsh', PChar('interface ip set address name="本地连接" source=static addr=192.168.1.2 mask=255.255.255.0 gateway=192.168.1.1 gwmetric=1'), nil, SW_HIDE);

ShellExecute(Handle, 'open', 'netsh', PChar('interface ip set dns name="本地连接" source=static addr=1.1.1.1 register=PRIMARY'), nil, SW_HIDE);

ShellExecute(Handle, 'open', 'netsh', PChar('interface ip add dns name="本地连接" source=static addr=2.2.2.2 index=2'), nil, SW_HIDE);

delphi只运行第一句，不运行第二三句呢？或者应该怎么写

反应不过来、等第一个执行完。
WaitForSingleObject 参考技术A 把命令行写入批处理，执行批处理文件就行了 参考技术B 是在修改本地IP地址吧。