用Delphi設計一個資源管理器，實際上是一個文件管理器，你可以通過這個制作實例掌握實現資源管理器各種功能的方法。當你選擇需要查看的盤符時，該磁盤底下所有的文件夾都在盤符下方列出，點擊文件夾可以查看該文件夾中的內容，利用下方的文件類型過濾器可以有選擇地查看不同類型的文件，右邊為文件列表，最上方為當前查看的文件和文件夾的路徑。點擊“刪除文件夾”按鈕，可以刪除當前查看的文件夾，也就是刪除當前路徑對應的文件夾，刪除前，程序會給出確認提示，如果要刪除的文件夾不存在，程序會給出出錯信息；點擊“創建新文件夾”按鈕時，系統會按照路徑目錄下指定的名字，在給定的路徑下創建新文件夾，創建新文件夾前程序會給出確認提示，如果要創建的文件夾已經存在，系統會給出出錯信息。
資源管理器運行界面如下圖：
具體設計思路：本程序利用的控件主要是Button 控件、Edit 控件、DriveComboBox、DirectoryListBox、FilterComboBox 和FileListBox 等。Delphi 6.0 中帶有強大的文件管理功能，主要的文件類型控件包括DriveComboBox、DirectoryListBox、FilterComboBox 和FileListBox 四種控件，這四種控件常常綜合使用，通過調用文件處理的函數，可以對文件和目錄進行各種操作。這四個控件的作用如下：
DriveComboBox 控件的作用是顯示當前計算機中全部有效的驅動器，以供用戶選擇和操作；
DirectoryListBox 控件的作用是顯示當前計算機有效驅動器中當前驅動器的樹形目錄結構，以供用戶選擇和操作；
FileListBox 控件的作用是顯示當前路徑中符合條件的所有文件列表；FilerListBox 控件的作用是為用戶提供從文件列表框中篩選文件的條件。
Delphi資源管理器編寫步驟：
本例主要解決對文件夾的查看、刪除和新建等常用操作，同時還要解決對文件夾路徑的操作，以及解決如何實現確認和出錯消息的提示。對文件和目錄進行處理和操作，需要利用到Delphi 6.0 提供的文件操作函數，如Directory()、Drive()等。利用MessageDlg()和ShowMessage()函數實現確認或出錯提示；利用rmdir()函數實現刪除文件夾的操作；利用ForceDirectorIEs()函數實現新建文件夾的操作。同時，本例巧妙簡潔地利用If 語句，實現多種情況的處理。
1．新建工程：
（1）啟動Delphi 6.0 程序。選擇“文件”菜單下的“新建”命令，從彈出的子菜單中選擇Application 選項，則出現新建工程的Form1 窗口。
（2）選擇“文件”菜單下的“工程另存為”命令，彈出Save Unit1 As 對話框。在“保存在”列表框中選擇需要存放該窗口文件所在的目錄名；在“文件名”編輯框中填寫文件名，這裡填寫“Unit1”，點擊“保存”按鈕，保存上面的選項。
（3）執行上一步後，將彈出“工程另存為”對話框。在“保存在”列表框中選擇需要存放該工程的目錄名，最好和第（2）步選取相同的目錄；在“文件名”編輯框中填寫保存處理該工程的源代碼的文件名，這裡填寫“Project1”，點擊“保存”按鈕，保存上面的選項。
2．修改窗口：
（1）激活Form1 窗口，在“屬性”面板中設置該窗體的Caption 屬性為“簡易資源管理器”，Color 屬性設置為“clGradIEntActiveCaption”。
（2）選擇“標准”頁上的Button 選項，在窗體中添加兩個Button 控件，調整其合適的大小和位置。在“屬性”面板中設置其Caption 屬性分別為“刪除文件夾”和“創建新文件夾”。
（3）選擇“標准”頁上的Edit 選項，在窗體中添加Edit 控件，調整其合適的大小和位置。在“屬性”面板上設置其Color 屬性為“clGradIEntActiveCaption”，Edit 控件在本例中的作用是顯示選中文件的路徑和文件名。
（4）選擇Win 3.1 頁上的DriveComboBox 選項，在窗體中添加DriveComboBox 控件，調整其合適的大小和位置。在“屬性”面板上設置其Color 屬性為“clGradIEntActiveCaption”。
（5）按照步驟（4），在窗體中添加其他控件：DirectoryListBox 和FileListBox，在“屬性”面板上設置其Color 屬性均為“clGradIEntActiveCaption”。
（6）選擇Win 3.1 頁上的FilterComboBox 選項，在窗體中添加FilterComboBox 控件，在Object Inspecter 面板上設置其Color 屬性均為“clGradIEntActiveCaption”，用鼠標點擊Filter 屬性右邊的文本框上的按鈕，打開如圖3-24 所示Filter Editor 對話框，在其中設置合適的文件過濾器類型。本例中設置如下：All files (*.*)|*.*|，Text files(*.txt)|*.txt|，Wordfiles(*.doc)|*.doc|，Pic files(*.bmp;*.jpg;*.gif|*.bmp;*.jpg;*.gif|，Exe files(*.exe)|*.exe|，Delphifiles(*.cfg;*.dof;*.dcu;*.~dfm;*.~pas;*.dcu;*.ddp)|*.cfg;*.dof;*.dcu;*.~dfm;*.~pas;*.dcu;*.ddp。控件添加完畢後的窗體如下圖所示：
