码迷,mamicode.com
首页 > 系统相关 > 详细

TcxShellListView添加文件

时间:2015-04-03 09:24:56      阅读:151      评论:0      收藏:0      [点我收藏+]

标签:dephi

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添加文件

标签:dephi

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

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!