请问如何得到系统中所有文件夹和文件(包括隐藏文件)

Question

请问如何得到系统盘中(包括硬盘、光盘、移动盘等等）所有文件夹和文件的列表？

Answer 1

for RootPath＝'A' to 'Z'
  if DRIVE_UNKNOWN <> GetDriveType（RootPath+':\'） then
     //磁盘被定义
  else
     //没有这个磁盘

Answer 2

用FindFirst, FindNext, FindClose三个函数，Delphi有帮助的。

Answer 3

回复人： xthmpro_cn() 
用FindFirst, FindNext, FindClose三个函数，Delphi有帮助的。
我用了,可以列出所有文件了,请问有办法判断什么是目录,什么是文件吗?