dirsform.pas

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

unit DirsForm;

interface

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

type
  Tform1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    CreateButton: TButton;
    SelectButton: TButton;
    delButton: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure CreateButtonClick(Sender: TObject);
    procedure SelectButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure delButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form1: Tform1;

implementation

{$R *.DFM}


procedure Tform1.Edit1Change(Sender: TObject);
begin
  if Edit1.TExt <> '' then
  begin
    delbutton.enabled:=true;
    createbutton.enabled:=true;
    selectbutton.enabled:=true;
  end
  else
  begin
    delbutton.enabled:=false;
    createbutton.enabled:=false;
    selectbutton.enabled:=false;
  end;
end;

procedure Tform1.CreateButtonClick(Sender: TObject);
//新建文件夹
begin
  if DirectoryExists (Edit1.Text) then
   showmessage('该文件夹已存在')
  else
  begin
  if MessageDlg ('你想新建文件夹 ' +
      Edit1.Text + ' 吗', mtConfirmation,
      [mbYes, mbNo], 0) = mrYes then
    ForceDirectories (Edit1.Text);
  end;
end;

procedure Tform1.SelectButtonClick(Sender: TObject);
//选择文件夹
var
  Text: string;
begin
  Text := Edit1.Text;
  if SelectDirectory (Text, [sdAllowCreate,
      sdPerformCreate, sdPrompt], 0) then
    Edit1.Text := Text;
end;

procedure Tform1.FormCreate(Sender: TObject);
//初始化控件的属性
begin
  edit1.Clear;
  delbutton.enabled:=false;
  createbutton.enabled:=false;
  selectbutton.enabled:=false;
end;

procedure Tform1.delButtonClick(Sender: TObject);
//删除文件夹
begin
  if DirectoryExists (Edit1.Text) then
  begin
     if MessageDlg ('你想删除文件夹 ' +
      Edit1.Text + ' 吗', mtConfirmation,
      [mbYes, mbNo], 0) = mrYes then
      rmdir(edit1.Text);
  end
  else
  MessageDlg ('此文件夹不存在 ', mtError, [mbOk], 0);
end;

end.