TcxShellListView添加文件

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;