Clear Temporary Folder

uses ShellAPI

//

function DeleteFile(const AFile: string): boolean;
var
  sh: SHFileOpStruct;
begin
  ZeroMemory(@sh, sizeof(sh));
    with sh do
    begin
      Wnd := Application.Handle;
      wFunc := fo_Delete;
      pFrom := PChar(AFile +#0);
      fFlags := fof_Silent or fof_NoConfirmation;
    end;
 result := SHFileOperation(sh) = 0;
end;

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
var
  lng: DWORD;
  thePath: string;
begin
  SetLength(thePath, MAX_PATH) ;
  lng := GetTempPath(MAX_PATH, PChar(thePath)) ;
  SetLength(thePath, lng) ;
  Edit1.Text := thePath;
  DeleteFile(Edit1.Text + '*.*'); // HIER KANN AUCH NACH BESTIMMTEN DATEIEN GELÖSCHT WERDEN
end;