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

浏览数：29 / 时间：2015年06月20日

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

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;

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。