写一个Copyfile()函数,
要求在拷贝单个文件的时候能通过ProgressBar显示其拷贝进度。
帮我搞定啊!
要求在拷贝单个文件的时候能通过ProgressBar显示其拷贝进度。
帮我搞定啊!
解决方案 »
- 沈阳:诚聘项目经理、开发部经理和开发人员
- 如何为动态创建的组件写事件
- 我想查看query的SQL内容,却出现这样的提示“Variable 'Self' inaccessible here due to optimization”
- **************暴难的问题*****************
- 请SuanAddMiao(算苗)进来接分。(第三百)
- 源代码编辑器的问题??
- delphi开发的软件与其他软件冲突,大家有没有碰到?
- 如何获得Jpeg、Bmp文件的对比度和亮度?
- 可用分还有3653分,出500分欢迎讨论应用软件应该如何规划窗口界面。
- delphi 中TRichViewEdit的使用问题
- 高手们进来看一下,这里的代码有一点要改动,但我改动不成功。
- 急。。。。。。。。。
Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
{ p := StrECopy(p, 'C:\DownLoad\1.ZIP') + 1;
p := StrECopy(p, 'C:\DownLoad\2.ZIP') + 1;
p := StrECopy(p, 'C:\DownLoad\3.ZIP') + 1;
StrECopy(p, 'C:\DownLoad\4.ZIP');
}
p := StrECopy(p, 'C:\Temp') + 1;
StrECopy(p, 'C:\BaseClass.txt'); FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := 'D:\';
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or
(Fo.fAnyOperationsAborted <> false)) then
ShowMessage('Cancelled')
end;
[Error] Unit1.pas(28): Undeclared identifier: 'TSHFileOpStruct'
[Error] Unit1.pas(44): Undeclared identifier: 'FO_COPY'。。