我的问题是要用treeview与文件夹N1(与工程文件在同一根目录下)内的A,B,C,D相联连,效果就是:
treeview中
N1
A
B
C
D
如果新添加一个子项,如:
N1
A
B
C
D
E
则文件夹N1内就有A,B,C,D,E文件夹.就是资源管理器的功能之一.请各位高手帮忙
treeview中
N1
A
B
C
D
如果新添加一个子项,如:
N1
A
B
C
D
E
则文件夹N1内就有A,B,C,D,E文件夹.就是资源管理器的功能之一.请各位高手帮忙
解决方案 »
- 【CSDN开心辞典】哪个版块版主最多?
- 从一个ado的数据原原本本的appendrecord到另一个表格,顺序怎么会不一样?
- 下载了个BusinessSkinForm的55套皮肤包,不知怎么用?
- 哪里有比较好的软件封面图片下载?
- 关于在delphi中使用DATADIFF函数
- MASKEDIT求救
- delphi自由操作excel的问题,(可继续加分)
- 极简单问题,初学者求教。
- 用ADOTable连接数据库,修改结果不能更新到数据库中。请问如何解决??
- 各位程序员师傅,我是delphi新手,我希望按下一个button来实现静音,不知道用下面这段摘抄的代码能够实现么?
- 有关delphi中webbrowser控件“复制”的问题
- 谁能给我一个多线程和断点续传的例子?
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.添加原来一样。
shadowfish(<)<-<-<<死鱼<)<-<-<) 兄,我已加入你,沉默的山羊就是我了
当然yuhouyangguang(雨后阳光)兄也有呐,我另开贴,你进来接吧:)