WINDOWS的复制文件不是通过剪贴板吗？怎么用软件看不到？ ( 积分: 100 )

写了一个图像管理的小软件，想加上复制等功能，不知道该怎么写，本来想用剪贴板的，但不能复制多个。应该怎么做请大家帮忙，谢谢！

写了一个图像管理的小软件，想加上复制等功能，不知道该怎么写，本来想用剪贴板的，但不能复制多个。应该怎么做请大家帮忙，谢谢！

用API函数CopyFile呀

//拷贝目录或文件<br>uses &nbsp;ShellApi<br><br>procedure SetQCopy_D_File(Const Source_File,Target_File:string);<br>var<br> &nbsp;T: TSHFileOpStruct;<br> &nbsp;Frombuf, Tobuf: Array [0..MAX_PATH-1] of Char;<br>Begin<br> &nbsp;FillChar(Frombuf, Sizeof(Frombuf),0);<br> &nbsp;FillChar(Tobuf, Sizeof(Tobuf),0);<br> &nbsp;StrPCopy(Frombuf,Source_File);<br> &nbsp;StrPCopy(Tobuf,Target_File);<br> &nbsp;with T do<br> &nbsp;begin<br> &nbsp; &nbsp;Wnd:= Application.Handle; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//拷贝目录或文件<br> &nbsp; &nbsp;wFunc:= FO_COPY;<br> &nbsp; &nbsp;pFrom:= @Frombuf;<br> &nbsp; &nbsp;pTo:=@Tobuf;<br> &nbsp; &nbsp;fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;<br> &nbsp; &nbsp;fAnyOperationsAborted:= False;<br> &nbsp; &nbsp;hNameMappings:= nil;<br> &nbsp; &nbsp;lpszProgressTitle:= nil;<br> &nbsp;end;<br> &nbsp;ShFileOperation(T);<br>end;<br><br>===============================================<br>使用:<br>复制目录：比如 SetQCopy_D_File('C:/abc','D:/123');<br>复制文件：比如 SetQCopy_D_File('C:/abc.txt','D:/123.txt');

save to clipbord