请问winexec函数?

player_ccp 2004-09-23 03:56:47
本人打算编写一个批量执行dos指令的小程序,但通过判断winexec的返回值却没不正确,下面是我的一段代码:

chkL1为一个checkListbox组件
cb为combox组件

for c:= 0 to chkl1.Count-1 do
begin
if chkL1.Checked[c] then
begin
cmd:='xcopy "'+edt_file.text+'" \\'+chkL1.items[c]+'\"'+cb1.text+'"/r /y';

if winexec(pchar(cmd),SW_hide) >31 then

begin
cb2.Text:=cmd;

memo1.lines.Add('复制到'+chkl1.items[c]+'成功');

end
else
memo2.Lines.Add('复制到'+chkl1.Items[c]+'失败');

end;

无论是否执行成功,都是提示执行成功,不知道错在哪里,请高手们指点
...全文
126 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
相关推荐
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2004-09-23 03:56
社区公告
暂无公告