Delphi 创建目录和子目录

unit CreateDirectory;

interface

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

type
  TCreateDirectoryForm = class(TForm)
    Button1: TButton;
    EditDirectory: TEdit;
    Label1: TLabel;
    memoInfo: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    function WriteInfoString(Info:String):Boolean;
  public
    { Public declarations }
  end;

var
  CreateDirectoryForm: TCreateDirectoryForm;

implementation

{$R *.dfm}

procedure TCreateDirectoryForm.Button1Click(Sender: TObject);
var
  textDir: String;
begin
  textDir:=Trim(EditDirectory.Text);
  if not DirectoryExists(textDir) then
  begin
    try
      ForceDirectories(textDir);
      WriteInfoString(textDir +' created succeeded!');
    except
      on e : Exception do
      begin
        WriteInfoString(textDir +' created Error! '+e.Message);
      end;
    end;
  end
  else
  begin
    WriteInfoString(textDir +' already exists. ');
  end;
end;

procedure TCreateDirectoryForm.FormShow(Sender: TObject);
begin
  EditDirectory.Clear();
  EditDirectory.SetFocus();
  memoInfo.Clear;
end;

function TCreateDirectoryForm.WriteInfoString(Info: String): Boolean;
begin
  if (Trim(Info)<>'') then
    memoInfo.Lines.Add('[INFO] '+Info);
end;

end.