main.pas

Delphi实效编程百例的随书源代码 这是其中的磁盘文件部分

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    SearchBtn: TButton;
    DirectoryEdt: TMemo;
    PathEdt: TEdit;
    Label1: TLabel;
    Image1: TImage;
    procedure SearchBtnClick(Sender: TObject);
    procedure MakeTree;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MakeTree;
var
  Sr: TSearchRec;
  Err: Integer;
  FilePath: string;
begin
  Err := FindFirst('*.*',$37,Sr);   //$37为除Volumn ID Files外的所有文件
  //  如果找到文件
  while (Err = 0) do
  begin
    if Sr.Name[1] <> '.' then
    begin
      //找到文件
      if (Sr.Attr and faDirectory) = 0 then
      begin

      end;
      //找到子目录
      if (Sr.Attr and faDirectory) = 16 then
      begin
        FilePath := ExpandFileName(Sr.Name);
        DirectoryEdt.Lines.Add(FilePath);
        ChDir(Sr.Name);
        MakeTree;
        ChDir('..');
      end;
    end;

    //结束递归
    Err := FindNext(Sr);
  end;
end;

procedure TForm1.SearchBtnClick(Sender: TObject);
begin
  DirectoryEdt.Lines.Clear;
  ChDir(PathEdt.Text);
  MakeTree;
end;
end.