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变量);可将指定小节中的 所有关键字名读取至一个字符串列表变量中；