本文整理自网络,侵删。
//删除文件夹 RemoveDir; RemoveDirectory
var
dir: string;
begin
dir := 'c:\temp';
RemoveDir(dir); //返回 Boolean
//或者用系统 API:
RemoveDirectory(PChar(dir)); //返回 Boolean
end;
========================
function RemoveDir(const Dir: string): Boolean;
begin
{$IFDEF MSWINDOWS}
Result := RemoveDirectory(PChar(Dir));
{$ENDIF}
{$IFDEF LINUX}
Result := __rmdir(PChar(Dir)) = 0;
{$ENDIF}
end;
相关阅读 >>
Delphi : tstringlist的find,indexof和sort
Delphi api �c multibytetowidechar的用法
Delphi idhttp中get 图像链接通过memorystream加载 image控件显示
Delphi gethomepath - 获取用户程序数据目录
更多相关阅读请进入《Delphi》频道 >>