关于文件、目录操作的函数

最新推荐文章于 2022-09-28 10:30:00 发布

weixin_30576859

最新推荐文章于 2022-09-28 10:30:00 发布

阅读量79

点赞数

原文链接：http://www.cnblogs.com/bjxsky/p/4609267.html

版权

删除目录及目录下的文件（user ShellApi单元）

function SHMyDelDirectory(const Source: string): boolean;
var fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd:= 0;
   wFunc := FO_Delete;
   pFrom := PChar(Source + #0);
    pTo    := #0#0;
    fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
    end;
    Result := (SHFileOperation(fo) = 0);
    end;

Delphi中关于文件、目录操作的函数

Chdir('c:\abcdir');   // 转到目录
Mkdir('dirname');     //建立目录
Rmdir('dirname');     //删除目录
GetCurrentDir;        //取当前目录名，无'\'
Getdir(0,s);          //取工作目录名s:='c:\abcdir';
Deletfile('abc.txt'); //删除文件
Renamefile('old.txt','new.txt');         //文件更名
ExtractFilename(filelistbox1.filename); //取文件名
ExtractFileExt(filelistbox1.filename);   //取文件后缀

转载于:https://www.cnblogs.com/bjxsky/p/4609267.html