WinExec(pchar('command /c ping 172.16.0.216'),SW_SHOW); 绝对搞定,我才用过。
解决方案 »
- 有人做过录歌软件的开发么,想开发或者购买K8那样的录歌软件
- 谁有delphi2005 的 update1,update2和update3啊?发一个好吗?
- 急(初学)
- Delph
- USER32.dll可以改名使用吗?
- DBGRIDEH怎样添加复选框?
- 求救各位高手哥哥,socket通信问题,在线等。。。。。。。
- 流传送图象的问题
- 如何用DELPHI实现类似PowerBuilder的下拉数据窗口是多字段显示的那种
- 如何让delphi编的程序在最小化时像网络蚂蚁一样只在右下脚的系统托盘显示?
- 小问题小问题,就是有点急!!!
- 在DELPHI5的报表打印中怎么换行??????十万火急!!救兄弟一把!!!
begin
with TStringList.Create do try
Text := 'C:\WINNT\system32\ping.exe 172.16.0.216> c:\tmp.txt';
SaveToFile('C:\tmp.bat');
finally
Free;
end;
WinExec('C:\tmp.bat', SW_SHOWNORMAL)
end;