Question

关于delphi使用winexec的问题

运行
winexec('ping 127.0.0.1',sw_SHOWNORMAL);
结果正常。

运行
tstr:= 'ping 127.0.0.1';
winexec(pansichar(tstr),sw_SHOWNORMAL);
没有运行成功，为什么？

Answer 1

我机子上运行没问题 你那边运行不成功提示什么？

追问

没有任何提示，就是没有运行起来。
winexec('ping 127.0.0.1',sw_SHOWNORMAL);
运行后会弹出cmd框在ping。
tstr:= 'ping 127.0.0.1';
winexec(pansichar(tstr),sw_SHOWNORMAL);
运行后完全没反应。

追答

uses
shellapi

tstr:= 'ping 127.0.0.1';
ShellExecute(self.Handle, nil, 'cmd.exe', pchar('/K ' + tstr), nil, SW_NORMAL);

//你试试这个函数，我机子上测试也通过的