看一下C:\Autoexec.bat文件是否存在然后把fFlags标志设为
FOF_ALLOWUNDO OR FOF_NOERRORUI;
通过返回值来判断SHFileOperation函数是否执行成功。
FOF_NOERRORUI标志是用来关闭SHFileOperation函数内部错误提示
FOF_ALLOWUNDO OR FOF_NOERRORUI;
通过返回值来判断SHFileOperation函数是否执行成功。
FOF_NOERRORUI标志是用来关闭SHFileOperation函数内部错误提示
解决方案 »
- dephi专长的希望除工资外拿点外水的来看看
- 捕捉图片时的死机
- delphi中string数组的问题,求教.
- 打印(预览)的时候 如果行的内容过多怎么办?
- 求ODAC-TOraStoredProc返回带参数的游标的代码。
- 急需IntraWeb中文资料
- 小弟刚开始用Rave Reports,哪里有相关的中文文档
- 高手看过来。请问:我用鼠标在image上画了一个矩形,怎样标出它的长和宽?
- 为什么paradox7生成的数据库文件*.db还会有诸如*.mb,*.px的文件存在,它们分别都是干什么的?
- 请教高手哪里有比较直观的EDIT控件下载(要分自已说 )
- 将Txt文件中的内容导入到sqlserver中,用什么方法最好??
- 急急急!一个关于Dll的窗体重用问题,请高手指定迷津!
procedure TForm1.Button1Click(Sender: TObject);
var
sPath:string;
fsTemp:SHFILEOPSTRUCT;
i:integer;
begin
sPath:=InputBox('文件操作','输入复制路径','c:\windows');
if sPath<>''then begin
fsTemp.Wnd := Self.Handle;
file://设置文件操作类型
fsTemp.wFunc :=FO_COPY;
file://允许执行撤消操作
fsTemp.fFlags :=FOF_ALLOWUNDO;
for i:=0 to ListBox1.Items.Count-1 do begin
file://源文件全路径名
fsTemp.pFrom := PChar(ListBox1.Items.Strings[i]);
file://要复制到的路径
fsTemp.pTo := PChar(sPath);
fsTemp.lpszProgressTitle:='拷贝文件';
if SHFileOperation(fsTemp)<>0 then
ShowMessage('文件复制失败');
end;
end;
end;