shellAPI 删除文件夹

1.既然是windows平台上, 就用shell API吧. 下面是一个例子: PHP 代码:

uses ShellAPI;

function DeleteDirectory(const sDir : string) : Boolean; var

SHFileOpStruct : TSHFileOpStruct; FromBuf : Array [0..255] of Char; ToBuf : Array [0..255] of Char; begin

//make sure the target directory existing if not DirectoryExists(sDir) then begin

Result := False; exit; end;

//Initialize SHFileOpStruct.

Fillchar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0); FillChar(FromBuf, Sizeof(FromBuf), 0); FillChar(ToBuf, Sizeof(ToBuf), 0); StrPCopy(FromBuf, sDir); StrPCopy(ToBuf, '');

//Delete directory and all its subdirectory as well as files. //fill out the shell file operation struct. With SHFileOpStruct Do Begin

Wnd := 0;

wFunc := FO_DELETE; pFrom := @FromBuf; pTo := @ToBuf;

fFlags := FOF_ALLOWUNDO;

fFlags := FOF_NOCONFIRMATION or FOF_SILENT; End;

//execute the operation and return result.

Result := (SHFileOperation(SHFileOpStruct) = 0); end;

两点注意:

1. 要应用shellapi

2. SHFileOperation(...)可以执行copy, move, rename和delete命令. file或folder/directory对它而言都是一个file object, 没有区别. 具体参数控制可参见MSDN.

方法二

//删除指定的目录或文件 //Undo默认为false,即直接删除，不能undo，可以选择true,删除到回收站 function nDeleteDir(SrcDir: String;UndoMK:boolean=false):Boolean; var FS: TShFileOpStruct; begin FS.Wnd := Application.Handle; //应用程序句柄 FS.wFunc := FO_DELETE; //表示删除 FS.pFrom := PChar(SrcDir+#0#0); FS.pTo := nil; if UndoMK then FS.fFlags := FOF_NOCONFIRMATION + FOF_SILENT + FOF_ALLOWUNDO // 表示删除到回收站 else FS.fFlags := FOF_NOCONFIRMATION + FOF_SILENT; // 表示不删除到回收站 FS.lpszProgressTitle := nil; Result := (ShFileOperation(FS) = 0); End;

方法三

在uses中加入ShellApi 自定义下过程

procedure TForm1.Deletedir(str:string); Var

T:TSHFileOpStruct; P:String; begin

P:='c:\%update';//这里改成你要删除的任意目录名,P:=str str 是传过来的目录路径 With T do Begin Wnd:=0;

wFunc:=FO_DELETE; pFrom:=Pchar(P); pTo:=nil;

fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息 hNameMappings:=nil;

lpszProgressTitle:='正在删除文件夹'; fAnyOperationsAborted:=False; End;

SHFileOperation(T);

Application.MessageBox('删除成功!','系统提示',64); end;

方法四：shellexecute(0, nil, 'rd', 'c:\%update /Q /S', '', 0);

方法五：

创建文件夹可以用ForceDirectories函数,可以创建深层文件夹;删除文件夹,可以用到下面的函数,参数为文件夹的路径,如:d:\\show

uses ShellAPI;

function DeleteDirectory(p :String): boolean; var

f: TSHFILEOPSTRUCT; begin

FillChar(f, SizeOf(f), 0); with f do begin Wnd := 0;

wFunc := FO_DELETE; pFrom := PChar(p+#0); pTo := PChar(p+#0);

fFlags := FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI; end;

Result := (SHFileOperation(f) = 0); end;

要简单一点的可以用Winexec调用dos的rd命令,如;winexec('cmd /c rd /s /q d:\\show',sw_hide)就一句代码

遇到con文件夹可以先用winexec('cmd /c rd /s /q d:\\show\\con\\',sw_hide)把con文件夹删除,再用winexec('cmd /c rd /s /q d:\\show',sw_hide)把show删除

until FindNext(sr) <> 0; FindClose(sr); end;

RemoveDir(sPath);

end;

判断文件夹存在不

if not DirectoryExists(\then

showmessage(\存在\else showmessage(\不存在\end;

if not Fileexists () then begin

//如果文件不存在 end;

判断Ini文件存在

INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用， 所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件 的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了 一个TInifile类，使我们可以非常灵活的处理INI文件。 一、有必要了解INI文件的结构： ;注释 [小节名] 关键字=值 ...

INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是 该关键字的值。

值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文 件中时没有引号，布尔真值用1表示，布尔假值用0表示。 注释以分号“;”开头。 二、定义

1、在Interface的Uses节增加IniFiles； 2、在Var变量定义部分增加一行：

myinifile:Tinifile;

然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。 三、打开INI文件

myinifile:=Tinifile.create('program.ini');

上面这一行语句将会为变量myinifile与具体的文件program.ini建立联 系，然后，就可以通过变量myinifile，来读写program.ini文件中的关

键字的值了。

值得注意的是，如果括号中的文件名没有指明路径的话，那么这个 Program.ini文件会存储在Windows目录中,把Program.ini文件存储在应 用程序当前目录中的方法是：为其指定完整的路径及文件名。下面的两 条语句可以完成这个功能：

Filename:=ExtractFilePath(Paramstr (0))+'program.ini';

myinifile:=Tinifile.Create(filename); 四、读取关键字的值

针对INI文件支持的字符串、整型数值、布尔值三种数据类型， TINIfiles类提供了三种不同的对象方法来读取INI文件中关键字的值。 假设已定义变量vs、vi、vb分别为string、integer、boolean类型。 vs:=myinifile.Readstring ('小节名','关键字',缺省值); vi:=myinifile.Readinteger ('小节名','关键字',缺省值); vb:=myinifile.Readbool ('小节名','关键字',缺省值);

其中缺省值为该INI文件不存在该关键字时返回的缺省值。 五、写入INI文件

同样的，TInifile类也提供了三种不同的对象方法，向INI文件写 入字符串、整型数及布尔类型的关键字。

myinifile.writestring('小节名','关键字',变量或字符串值); myinifile.writeinteger('小节名','关键字',变量或整型数值); myinifile.writebool('小节名','关键字',变量或True或False); 当这个INI文件不存在时，上面的语句还会自动创建该INI文件。 六、删除关键字

除了可用写入方法增加一个关键字，Tinifile类还提供了一个删 除关键字的对象方法：

myinifile.DeleteKey('小节名','关键字'); 七、小节操作

增加一个小节可用写入的方法来完成，删除一个小节可用下面的 对象方法：

myinifile.EraseSection('小节名');

另外Tinifile类还提供了三种对象方法来对小节进行操作： myinifile.readsection('小节名',TStrings变量);可将指定小节中的 所有关键字名读取至一个字符串列表变量中；

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库shellAPI 删除文件夹在线全文阅读。