W
winwolf
Unregistered / Unconfirmed
GUEST, unregistred user!
var<br> sPath: string;<br> fsTemp: SHFILEOPSTRUCT;<br> Flags: FILEOP_FLAGS;<br> i, t: integer;<br>begin<br> Flags := Flags + FOF_ALLOWUNDO;//允许Undo动作<br> Flags := Flags + FOF_RENAMEONCOLLISION;//冲突时重新命名<br> Flags := Flags + FOF_SILENT;//不显示进度<br> Flags := Flags + FOF_NOCONFIRMMKDIR;//创建新目录不确认<br> if sPath <> '' then<br> begin<br> fsTemp.Wnd := Self.Handle; //设置文件操作类型<br> fsTemp.wFunc := FO_COPY;<br> fsTemp.fFlags := Flags;<br> for i := 0 to FileListView.Items.Count - 1 do<br> //允许执行撤消操作 //////////<br> begin //源文件全路径名<br> if FileListView.Items.Item.Caption = '..' then<br> continue;<br> fsTemp.pFrom := PChar(FileListView.Items.Item.Caption + #0#0);<br> fsTemp.pTo := PChar(sPath + #0#0); //要复制到的路径<br> fsTemp.lpszProgressTitle := '拷贝文件';<br> if SHFileOperation(fsTemp) <> 0 then<br> // '文件复制不成功!';<br> else<br> // '文件复制成功!';<br> end;<br> end;<br><br>end;<br>以上是拷的代码为什么提示FileListView是Undeclared identifier的错误?