我的问题是要用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文件夹.就是资源管理器的功能之一.请各位高手帮忙
解决方案 »
- 如何ClientDataSet的ApplyUpdates方法
- delphi 改变指针指向变量的值
- 怎么判断局域网中机器连接上sql server????
- 版主,可用分的危机
- 预监报表时,如何捕获用户按上一页,下一页按钮的事件
- 大师在家吗!有朋自远方来。在线等你
- 我在窗口中加了“RadioGroup”和“Label”两个组件,把“Label”至顶,还是被“RadioGroup”盖住了,怎么办?
- 怎么得到TreeView选中的是哪个item,怎样得到选中的这个item的值?
- 送分!!!送分!!!推荐几本Delphi入门的好书?
- image被flash遮掩??
- 有关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(雨后阳光)兄也有呐,我另开贴,你进来接吧:)