Delphi编程创建和删除文件夹

首先，在程序的uses部分添加对ShellApi的引用，然后在“创建”按钮的响应过程中添加以下代码:

过程TForm1.btnCreateClick(发送方:to object)；
begin
create directory(PChar(ExtractFilePath(ParamStr(0))+' Test ')，nil)；
end；

程序运行初期，将执行create directory(PCHAR(extract file path(paramstr(0))+' test ')(NIL)语句，在程序实例所在的目录下创建子目录test。

在程序运行过程中，点击“删除”按钮删除新创建的测试子目录。响应代码如下:

过程t form 1 . btndedeleteclick(发送方:to object)；
var
T:TSHFileOpStruct；
P:String；
begin
P:= ExtractFilePath(ParamStr(0))+' Test '；
with T do
begin
Wnd:= 0；
w func:= FO _ DELETE；
pFrom:= PChar(P)；
pTo:= nil；
fFlags:= FOF _ allow undo+FOF _诺埃罗瑞；
hname mappings:= nil；
lpszProgressTitle:= '删除文件夹'；
fanyoperations aborted:= False；
end；
shfile operation(T)；
end；

程序可以通过填充TSHFileOpStruct类型对象T的属性来撤销这个删除操作，当然最后的删除操作是由SHFileOperation(T)来完成的。如果SHFileOperation函数的返回值为0，则表示删除成功，否则表示删除失败。