调用windows的复制文件对话框

2021-02-05 00:13

阅读：434

标签：sizeof flag upload ati har alt ops 调用 loading

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的复制文件对话框

标签：sizeof flag upload ati har alt ops 调用 loading

原文地址：https://www.cnblogs.com/blogpro/p/11453473.html

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：调用windows的复制文件对话框
文章链接：http://soscw.com/index.php/essay/51119.html

亲，登录后才可以留言！