我的问题是要用treeview与文件夹N1(与工程文件在同一根目录下)内的A,B,C,D相联连,效果就是:
   treeview中
              N1
                 A
                 B
                 C
                 D
如果新添加一个子项,如:
              N1
                 A
                 B
                 C
                 D    
                 E
   则文件夹N1内就有A,B,C,D,E文件夹.就是资源管理器的功能之一.请各位高手帮忙

解决方案 »

  1.   

    ok,这个简单,加我QQ17042473,网上和你说
      

  2.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, StdCtrls, Buttons, ComCtrls, ShellCtrls,  ShellAPI;type
      TForm1 = class(TForm)
        ShellTreeView1: TShellTreeView;
        BitBtn1: TBitBtn;
        PopupMenu1: TPopupMenu;
        CopyItem: TMenuItem;
        DelItem: TMenuItem;
        procedure DelItemClick(Sender: TObject);
        procedure CopyItemClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DelItemClick(Sender: TObject);
    var
      Dir: String;
      SHFileOPStruct: TSHFileOPStruct;
      Confirm: Word;
    begin
      Dir:=ShellTreeView1.Path;
      //Delete(Dir,Length(Dir)-1,1);
      Confirm:=MessageDlg('你确认删除文件夹'+Dir+'吗',mtWarning,[mbYes,mbNo],0);
      if Confirm=mrYes then
        begin
          with SHFILEOPSTRUCT do
            begin
              Wnd:=Form1.Handle;
              WFunc:=FO_DELETE;
              pFrom:=PChar(Dir);
              fFlags:=FOF_ALLOWUNDO;
            end;
          SHFileOperation(SHFileOPStruct);
        end;
    end;procedure TForm1.CopyItemClick(Sender: TObject);
    var
      FromDir,ToDir:String;
      SHFileOPStruct:TSHFileOPStruct;
    begin
      if CopyItem.Caption='复制到' then
        begin
          FromDir:=ShellTreeView1.Path;
          //showmessage(FromDir);
          ShowMessage('请选择目的文件夹');
          CopyItem.Caption:='粘贴';
        end
      else if CopyItem.Caption='粘贴' then
          begin
            ToDir:=ShellTreeView1.Path;
            //Showmessage(ToDir);
            CopyItem.Caption:='复制到';
            with SHFILEOPSTRUCT do
              begin
                Wnd:=Handle;
                WFunc:=FO_COPY;
                pFrom:=PChar(FromDir);
                pTo:=PChar(ToDir);
                fFlags:=FOF_NOCONFIRMMKDIR or FOF_RENAMEONCOLLISION;
                fAnyOperationsAborted:=False;
              end;
            SHFileOperation(SHFileOPStruct);
          end;
    end;end.添加原来一样。
      

  3.   

    我先看一下  yuhouyangguang(雨后阳光)的代码,要加分还要等:)
      

  4.   

    看了一下,可能是我表达的意思不太清楚,再说一次:我只需treeview(shelltreeview)与我的工程文件同目录下的文件夹建立此种关系: 如果在程序中进行操作(新建、删除等),此文件夹就对应的发生变化,而不是完全的资源管理器的功能! 谢谢!!
       shadowfish(<)<-<-<<死鱼<)<-<-<) 兄,我已加入你,沉默的山羊就是我了
      

  5.   

    此问题特别要感谢shadowfish(<)<-<-<<死鱼<)<-<-<)兄了,接分吧
       当然yuhouyangguang(雨后阳光)兄也有呐,我另开贴,你进来接吧:)