在程序中怎样删除某个文件夹中的临时文件啊？如 c:\databack\sql.bak

Question

在程序中怎样删除某个文件夹中的临时文件啊？如 c:\databack\sql.bak

Answer 1

var
  lsPath: string;
  FileOp: TSHFileOpStruct;
begin
     lsPath := 'c:\temp\';
     //删除临时文件
     with FileOp do begin
        Wnd := 0;
        wFunc := FO_DELETE;
        pFrom := PChar(lsPath  + '*.*' + #0);     //取目录，与isFaq没有实际关系
        pTo := nil;
        fFlags := FOF_SILENT + FOF_NOCONFIRMATION  ;
        fAnyOperationsAborted := False;
        hNameMappings := nil;
        lpszProgressTitle := nil;
     end;
     SHFileOperation(FileOp);
    
     RemoveDir(lsPath );
end;

Answer 2

也可以这样，呵呵：
shellexecute(0,nil,'del','文件路径',nil,SW_SHOWNORMAL);

Answer 3

shellexecute(0,nil,'del','文件路径',nil,SW_Hide);
更好！！
不过有文件是无法删除文件夹的
只有先删除了文件才行，
所以还是建议使用
 hongqi162(失踪的月亮) 的办法！