首页 > 系统服务 > 详细

TcxShellListView添加文件

时间:2015-04-03 09:21:57      阅读:341      评论:0      收藏:0      [点我收藏+]
procedure TFormSystemTree.N29Click(Sender: TObject);
var
  tmpStr: string;
  // 添加文件..
begin
  if OpenDialog1.Execute() then
  begin
tmpStr := lvMain.Path + ‘\‘ + ExtractFileName(OpenDialog1.filename);
CopyFile(PWideChar(OpenDialog1.filename), PWideChar(tmpStr), True);
  end;
end;

TcxShellListView添加文件

原文:http://blog.csdn.net/singular2611/article/details/44839275

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!