mainunit.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 84 行

unit MainUnit;

interface

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

type
  TMainForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  S: String;
implementation

{$R *.DFM}

procedure TMainForm.Edit1Change(Sender: TObject);
begin
  if Edit1.Text<> '' then
    begin
      Button1.Enabled:= True;
      Button2.Enabled:= True;
      Button3.Enabled:= True;
    end
  else
    begin
      Button1.Enabled:= False;
      Button2.Enabled:= False;
      Button3.Enabled:= False;
    end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  S:= Edit1.Text;
  if SelectDirectory(S, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    Edit1.Text:= S;
end;

procedure TMainForm.Button2Click(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 TMainForm.Button3Click(Sender: TObject);
begin
  if DirectoryExists(Edit1.Text) then
    begin
      if MessageDlg('删除文件夹'+ Edit1.Text+ '?', mtConfirmation, [mbYes, mbNo], 0)= mrYes then
        begin
          if S<> Edit1.Text then
            RmDir(Edit1.Text)
          else
            ShowMessage('该文件夹正在使用');
        end
    end
  else
    MessageDlg('该文件夹不存在', mtError, [mbOk], 0);
end;

end.