TcxShellListView自定义打开文件夹和文件功能

最新推荐文章于 2020-03-01 09:02:44 发布

singular2611

最新推荐文章于 2020-03-01 09:02:44 发布

阅读量1.2k

点赞数

分类专栏： delphi 文章标签：操作自定义

本文链接：https://blog.csdn.net/singular2611/article/details/44817365

版权

delphi 专栏收录该内容

41 篇文章 0 订阅

订阅专栏

这是完成自定义打开文件和文件夹功能

procedure TFormSystemTree.N24Click(Sender: TObject);
var
  SEI: TShellExecuteInfo;//对文件夹或文件操作参数结构体
begin
  if lvMain.InnerListView.Selected <> nil then
  begin
if lvMain.Folders[lvMain.InnerListView.ItemIndex].IsFolder then//判断是不是文件夹
begin
  lvMain.ProcessTreeViewNavigate//进入文件夹
    (lvMain.Folders[lvMain.InnerListView.ItemIndex].AbsolutePIDL);
end
else
begin
  FillChar(SEI, SizeOf(SEI), 0);//操作文件的结构体赋初值0或空
  with SEI do
  begin
    cbSize := SizeOf(SEI);
    wnd := Application.Handle;
    fMask := SEE_MASK_INVOKEIDLIST;
    lpIDList := lvMain.Folders[lvMain.InnerListView.ItemIndex].AbsolutePIDL;
    nShow := sw_show;
  end;

  ShellExecuteEx(@SEI);//执行对文件的操作
end;

  end;
end;