调用windows的复制文件对话框
Posted 我不是木鱼
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了调用windows的复制文件对话框相关的知识，希望对你有一定的参考价值。
function CopyFileDir(sDirName: String;
sToDirName: String): Boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := PChar(sDirName + #0);
pTo := PChar(sToDirName + #0);
fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;
end;
Result := (SHFileOperation(fo) = 0);
end;
以上是关于调用windows的复制文件对话框的主要内容，如果未能解决你的问题，请参考以下文章