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;
原文：http://blog.csdn.net/singular2611/article/details/44839275