求助一些关于ShellListView的问题！ ( 积分: 30 )

本人添加了一个ShellListView控件，用来显示硬盘上的盘符或文件，但是在使用的时候遇到以下一些问题：
1.运行程序后在ShellListView框中的空白处（即非文件区域）不能点击出现系统鼠标右
键菜单，怎样才可以调用系统鼠标菜单？（我自己编写右键菜单能实现的功能不怎么令
我满意，所以想找一种和windows资源管理器右键功能一样的捷径方法）
2.怎样才能拖动ShellListView框中的文件夹或者是文件？（举个例子，将一个文件拖进
一个文件夹里头）
3.我做了一个鼠标右键菜单： ForceDirectories(ShellComboBox1.Path+'/新建文件夹');
用来在硬盘中建立一个文件夹，但是问题出现了－－我只能新建一个"新建文件夹",
创建第二个时没能创建出，除非把刚才的"新建文件夹"删除掉或者改名，才能重新建立
"新建文件夹",怎样才能做到第二次在同一目录下创建"新建文件夹"时，能够出现"新建
文件夹2"?
最后,感谢为我提供这个帐号的朋友，我一直都想来这里与大家请教交流问题，但是我注册的帐号不能拿到确认码，不能提问！怎么回事呀？
朋友的分数仅剩30分了，我厚颜无耻的将它花完，并进行大量提问，望各位前辈能理解小弟
的难处！[][][]

本人添加了一个ShellListView控件，用来显示硬盘上的盘符或文件，但是在使用的时候遇到以下一些问题：
1.运行程序后在ShellListView框中的空白处（即非文件区域）不能点击出现系统鼠标右
键菜单，怎样才可以调用系统鼠标菜单？（我自己编写右键菜单能实现的功能不怎么令
我满意，所以想找一种和windows资源管理器右键功能一样的捷径方法）
2.怎样才能拖动ShellListView框中的文件夹或者是文件？（举个例子，将一个文件拖进
一个文件夹里头）
3.我做了一个鼠标右键菜单： ForceDirectories(ShellComboBox1.Path+'/新建文件夹');
用来在硬盘中建立一个文件夹，但是问题出现了－－我只能新建一个"新建文件夹",
创建第二个时没能创建出，除非把刚才的"新建文件夹"删除掉或者改名，才能重新建立
"新建文件夹",怎样才能做到第二次在同一目录下创建"新建文件夹"时，能够出现"新建
文件夹2"?
最后,感谢为我提供这个帐号的朋友，我一直都想来这里与大家请教交流问题，但是我注册的帐号不能拿到确认码，不能提问！怎么回事呀？
朋友的分数仅剩30分了，我厚颜无耻的将它花完，并进行大量提问，望各位前辈能理解小弟
的难处！[][][]

第三个问题也是我期待解决的，等待中。。。。。。[]

期待中。。。。。

第三个问题，我给了大概的方法，你自己改吧，里边有点问题！
if not DireCtoryExists('新建文件夹') then
ForceDirectories(ShellComboBox1.Path+'/新建文件夹');
if not CreateDir('新建文件夹') then
ForceDirectories(ShellComboBox1.Path+'/新建文件夹1');
ShellListView1.Refresh;

procedure ForceNewDir(const Path, Name: string);
var
DirPath: string;
i: Integer;
begin
i := 1;
DirPath := Path + '/' + Name;
while DirectoryExists(DirPath) do
begin
DirPath := Path + '/' + Name + IntToStr(i);
Inc(i);
end;

ForceDirectory(DirPath);
end;


使用：
ForceNewDir(ShellComboBox1.Path, '新建文件夹');