Tcxshelllistview customizing open folders and Files

This is done to customize the open files and Folders feature

procedure TFormSystemTree.N24Click(Sender: TObject);var  SEI: TShellExecuteInfo;//对文件夹或文件操作参数结构体begin  if lvMain.InnerListView.Selected <> nil then  beginif lvMain.Folders[lvMain.InnerListView.ItemIndex].IsFolder then//判断是不是文件夹begin  lvMain.ProcessTreeViewNavigate//进入文件夹    (lvMain.Folders[lvMain.InnerListView.ItemIndex].AbsolutePIDL);endelsebegin  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;

Tcxshelllistview customizing open folders and Files