Delphi編寫的簡易文件管理器代碼

文件管理器Delphi簡單代碼，只實現了部分功能，主要是實現了文件的信息查看、刪除文件夾和創建文件夾，主要面向Delphi初學者，高手請繞行。

vIEw source print? 01 unit MainUnit; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls, FileCtrl; 06 type 07   TMainForm = class(TForm) 08     Label1: TLabel; 09     Edit1: TEdit; 10     Button1: TButton; 11     Button2: TButton; 12     Button3: TButton; 13     procedure Edit1Change(Sender: TObject); 14     procedure Button1Click(Sender: TObject); 15     procedure Button2Click(Sender: TObject); 16     procedure Button3Click(Sender: TObject); 17   private 18     { Private declarations } 19   public 20     { Public declarations } 21   end; 22 var 23   MainForm: TMainForm; 24   S: String; 25 implementation 26 {$R *.DFM} 27 procedure TMainForm.Edit1Change(Sender: TObject); 28 begin 29   if Edit1.Text<> '' then 30     begin 31       Button1.Enabled:= True; 32       Button2.Enabled:= True; 33       Button3.Enabled:= True; 34     end 35   else 36     begin 37       Button1.Enabled:= False; 38       Button2.Enabled:= False; 39       Button3.Enabled:= False; 40     end; 41 end; 42 procedure TMainForm.Button1Click(Sender: TObject); 43 begin 44   S:= Edit1.Text; 45   if SelectDirectory(S, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then 46     Edit1.Text:= S; 47 end; 48 procedure TMainForm.Button2Click(Sender: TObject); 49 begin 50   if DirectoryExists(Edit1.Text) then 51     ShowMessage('該文件夾已經存在') 52   else 53     begin 54       if MessageDlg('建立新建文件夾'+ Edit1.Text+ '?', mtConfirmation, [mbYes, mbNo], 0)= mrYes then 55         ForceDirectorIEs(Edit1.Text); 56     end; 57 end; 58 procedure TMainForm.Button3Click(Sender: TObject); 59 begin 60   if DirectoryExists(Edit1.Text) then 61     begin 62       if MessageDlg('刪除文件夾'+ Edit1.Text+ '?', mtConfirmation, [mbYes, mbNo], 0)= mrYes then 63         begin 64           if S<> Edit1.Text then 65             RmDir(Edit1.Text) 66           else 67             ShowMessage('該文件夾正在使用'); 68         end 69     end 70   else 71     MessageDlg('該文件夾不存在', mtError, [mbOk], 0); 72 end; 73 end.