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

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

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;