Delphi編程創建和刪除文件夾

 　　向窗體上添加兩個TButton組件，一個用於創建新的文件夾，另一個用於刪除新創建的文件夾，設計完成的窗體如圖1所示。

　　圖1 主界面

　　首先在程序的uses段中添加對ShellApi的引用，另外還要在“創建”按鈕的響應過程中添加下列代碼：

　　procedure TForm1.btnCreateClick(Sender: TObject);

　　begin

　　CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);

　　end;

　　程序運行初期就會執行CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil)語句，在程序實例所在的目錄中創建一個子目錄test。

　　在程序運行過程中，單擊“刪除”按鈕就可以將新創建的test子目錄刪除，響應代碼如下：

　　procedure TForm1.btnDeleteClick(Sender: TObject);

　　var

　　T:TSHFileOpStruct;

　　P:String;

　　begin

　　P:=ExtractFilePath(ParamStr(0))+’Test’;

　　with T do

　　begin

　　Wnd:=0;

　　wFunc:=FO_DELETE;

　　pFrom:=PChar(P);

　　pTo:=nil;

　　fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;

　　hNameMappings:=nil;

　　lpszProgressTitle:=’正在刪除文件夾’;

　　fAnyOperationsAborted:=False;

　　end;

　　SHFileOperation(T);

　　end;

　　程序通過填充TSHFileOpStruct 類型的對象T的屬性來設置本次刪除操作可以Undo，當然最終的刪除操作是通過SHFileOperation(T)來完成的。如果SHFileOperation函數返回值為0，就表示刪除成功，否則表示刪除失敗。

　　如果用戶在程序中想要直接刪除test子目錄，可以直接通過調用RemoveDirectory (Pchar(ExtractFilePath(ParamStr(0))+’Test’))語句來實現

　　程序代碼如下：

　　unit Unit1;

　　interface

　　uses

　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

　　Dialogs, StdCtrls, ShellApi;

　　type

　　TForm1 = class(TForm)

　　btnCreate: TButton;

　　btnDelete: TButton;

　　procedure btnCreateClick(Sender: TObject);

　　procedure btnDeleteClick(Sender: TObject);

　　private

　　{ Private declarations }

　　public

　　{ Public declarations }

　　end;

　　var

　　Form1: TForm1;

　　implementation

　　{$R *.dfm}

　　procedure TForm1.btnCreateClick(Sender: TObject);

　　begin

　　CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);

　　end;

　　procedure TForm1.btnDeleteClick(Sender: TObject);

　　var

　　T:TSHFileOpStruct;

　　P:String;

　　begin

　　P:=ExtractFilePath(ParamStr(0))+’Test’;

　　with T do

　　begin

　　Wnd:=0;

　　wFunc:=FO_DELETE;

　　pFrom:=PChar(P);

　　pTo:=nil;

　　fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;

　　hNameMappings:=nil;

　　lpszProgressTitle:=’正在刪除文件夾’;

　　fAnyOperationsAborted:=False;

　　end;

　　SHFileOperation(T);

　　//RemoveDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’));

　　end;

　　end.

　　保存文件，然後按F9鍵運行程序，程序運行的初始畫面如圖2所示。

　　圖2 程序運行的初始畫面

　　單擊“創建”按鈕就會在程序實例所在的目錄中創建一個子目錄test，單擊“刪除”按鈕就可以將新創建的test子目錄刪除。

　　本實例介紹了如何創建文件夾，並且為刪除文件夾提供了兩種途徑——一種是刪除文件夾到回收站中，另外一種就是直接刪除。