Delphi編程創建和刪除文件夾(2)

程序代碼如下：

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子目錄刪除。

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