诚征下列函数-----热心者请进！！ ( 积分: 100 )

一、取得本地硬盘共有几个分区，并列举出来；
二、怎么判断一个分区，是软驱、光驱、U盘、移动硬盘、还是普通分区？
三、怎么判断目录下的内容是文件还是子目录？

另外，我使用的一个RzShellcomlist控件，怎样能屏蔽其内容中的双击事件（其原来双击一个文件时默认将该文件打开）？


哎，终归是菜鸟啊，一下子问了这么多问题，还请大师们多多指教啊！！！----在线等！

一、取得本地硬盘共有几个分区，并列举出来；
二、怎么判断一个分区，是软驱、光驱、U盘、移动硬盘、还是普通分区？
三、怎么判断目录下的内容是文件还是子目录？

另外，我使用的一个RzShellcomlist控件，怎样能屏蔽其内容中的双击事件（其原来双击一个文件时默认将该文件打开）？


哎，终归是菜鸟啊，一下子问了这么多问题，还请大师们多多指教啊！！！----在线等！

给你一个连接http://dev.csdn.net/article/62/62312.shtm参考，重点研究CreateFile等函数（查MSDN）。

http://www.delphifans.com
上例子很多（Delphi专家门诊）

三.
procedure DoSearchFile(Path: string; Files: TStrings = nil);
var
Info: TSearchRec;

procedure ProcessAFile(FileName: string);
begin
if Assigned(PnlPanel) then
PnlPanel.Caption := FileName;
Label2.Caption := FileName;
end;

function IsDir: Boolean;
begin
with Info do
Result := (Name <> '.') and (Name <> '..') and ((attr and fadirectory) = fadirectory);
end;

function IsFile: Boolean;
begin
Result := not ((Info.Attr and faDirectory) = faDirectory);
end;

begin
Path := IncludeTrailingBackslash(Path);
try
if FindFirst(Path , faAnyFile, Info) = 0 then
if IsFile then
ProcessAFile(Path + Info.Name)
else if IsDir then DoSearchFile(Path + Info.Name);
while FindNext(Info) = 0 do
begin
if IsDir then
DoSearchFile(Path + Info.Name)
else if IsFile then
ProcessAFile(Path + Info.Name);
Application.ProcessMessages;
if QuitFlag then Break;
Sleep(100);
end;
finally
FindClose(Info);
end;
end;
其实，这些全部的问题，可看看这个例子的
http://www.aidelphi.com/6to23/docu/shellfolder.zip

多人接受答案了。