用delphi写的，硬盘文件扫描,列举硬盘所有文件。