delphi删除文件

以下是两种Delphi删除文件的例子：

1. 删除指定目录下的指定文件

procedure del(mulu: string; f: string);
var
  SearchRec: TSearchRec;
begin
  if FindFirst(mulu + f, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      FileSetAttr(mulu + SearchRec.Name, 0);
      DeleteFile(mulu + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  end;
  FindClose(SearchRec);
end;

2. 删除指定目录下的所有文件

procedure delallfilesinpath(path: string);
var
  sr: TSearchRec;
begin
  if FindFirst(path + '*.*', faAnyFile, sr) = 0 then
  begin
    DeleteFile(path + '\' + sr.Name);
  end;
  while FindNext(sr) = 0 do
  begin
    DeleteFile(path + '\' + sr.Name);
  end;
  FindClose(sr);
end;

相关问题

Delphi 删除文件

在 Delphi 中，删除文件可以使用以下代码：

if FileExists('文件路径') then
  DeleteFile('文件路径');

其中，`FileExists` 函数用于判断文件是否存在，如果存在就调用 `DeleteFile` 函数进行删除。需要注意的是，删除文件操作是不可逆的，请谨慎使用。

delphi 删除文件到回收站

在Delphi中，可以使用ShellAPI单元中的SHFileOperation函数来将文件移动到回收站。下面是一个简单的示例代码：

uses
  ShellAPI;

procedure MoveFileToRecycleBin(const AFileName: string);
var
  FileOp: TSHFileOpStruct;
begin
  ZeroMemory(@FileOp, SizeOf(FileOp));
  FileOp.Wnd := 0;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PChar(AFileName + #0);
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;

  if SHFileOperation(FileOp) <> 0 then
    ShowMessage('文件移动到回收站失败')
  else
    ShowMessage('文件移动到回收站成功');
end;

// 在需要的地方调用该函数
MoveFileToRecycleBin('C:\example.txt');

在上面的示例中，我们定义了一个MoveFileToRecycleBin函数，它接受文件名作为参数，并使用SHFileOperation函数将文件移动到回收站。FO_DELETE参数指示删除文件，FOF_ALLOWUNDO表示允许撤销操作，FOF_NOCONFIRMATION表示不显示删除确认对话框，FOF_SILENT表示不显示进度对话框。

调用MoveFileToRecycleBin函数并传入文件路径作为参数即可将文件移动到回收站。当文件成功移动到回收站时，将会弹出提示成功的消息框；如果移动失败，则会弹出移动失败的消息框。

这就是如何在Delphi中使用SHFileOperation函数将文件移动到回收站的方法。