请问winexec函数?
本人打算编写一个批量执行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;
无论是否执行成功,都是提示执行成功,不知道错在哪里,请高手们指点