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

删除目录及目录下的文件（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);   //取文件后缀