Удаление содержимого в папке Temp

[xJohnx]

Как написать такую программу?

[wm_leviathan]

папка Temp это та что в Windows\Temp или это вы где то сами создали ее
к примеру c:\123\Temp ?

если винда то можно так:

узнаем путь к винде (мб она на "д" диске)

function TForm2.GetWindowsDir: string;
var S: array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(S,SizeOf(S));
  Result:=S;
end;

функция удаления файлов

function TForm2.DelDir (Dir: AnsiString): boolean;
var
  Sr: SysUtils.TSearchRec;
begin
{$I-}
  if (Dir <> '') and (Dir[length(Dir)] = '\') then
    Delete(Dir, length(dir), 1);
  if FindFirst(Dir + '\*.*', faDirectory + faHidden + faSysFile +
    faReadonly + faArchive, Sr) = 0 then
    repeat
      if (Sr.Name = '.') or (Sr.Name = '..') then
        continue;
      if (Sr.Attr and faDirectory <> faDirectory) then
   begin
        FileSetReadOnly(Dir + '\' + sr.Name, False);
        DeleteFile(Dir + '\' + sr.Name);
   end
      else
        DelDir(Dir + '\' + sr.Name);
    until FindNext(sr) <> 0;
  FindClose(sr);
  RemoveDir(Dir); // Удалит пустой каталог
  DelDir := (FileGetAttr(Dir) = -1);
end;

и нажатие кнопочки

procedure TForm2.Button1Click(Sender: TObject);
var
Path: string;
begin

Path:=GetWindowsDir+'\Temp\';
DelDir(Path);
end;

[unbanned]

если брать delphi, то через WinAPI

procedure DeleteFiles(Path: string);
var
  Mask: string;
  SearchRec: TSearchRec;
  FindResult: Integer;
  List: TStringList;
  i: Integer;
begin
  Mask := ExtractFileName(Path);
  if Mask = '' then
    Mask := '*.*';
  Path := ExtractFilePath(Path);
  if Path = '' then
    Path := IncludeTrailingBackslash(GetCurrentDir);
  List := TStringList.Create;
  try
    FindResult := FindFirst(Path + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
          if ((Attr and faDirectory) = 0) and MatchesMask(Name, Mask) then
            List.Add(Name);
          FindResult := FindNext(SearchRec);
        end;
      for i := 0 to List.Count - 1 do
        DeleteFile(Path + List[i]);
    finally
      FindClose(SearchRec);
    end;
  finally
    List.Free;
  end;
end;

процедура взята из гугла

[wm_leviathan]

1.

if ((Attr and faDirectory) = 0) and MatchesMask(Name, Mask) then

MatchesMask непонятная функция возможно самописная.
2. не вижу где удаление папок если оно там вообще есть. В папке Temp куча папок и подпапок которые надо сносить зачем они там пустые будут валяться ?

[unbanned]

1. нет, почему, она проеверяет соответствия строки маске. только надо подключить модуль masks.
2. здесь очистка папки от файлов

[*PB*]

Удаление файлов и папок из папки Temp.
Код на PureBasic (для Windows, Linux и MacOS X).

TempDir.s=GetTemporaryDirectory()
If TempDir
  If ExamineDirectory(0,TempDir,"*.*")
    While NextDirectoryEntry(0)
      Name.s=TempDir+DirectoryEntryName(0)
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File
        DeleteFile(Name)
      Else
        If DirectoryEntryName(0)<>"." And DirectoryEntryName(0)<>".."
          DeleteDirectory(Name, #PB_FileSystem_Recursive | #PB_FileSystem_Force)
        EndIf
      EndIf
    Wend
    FinishDirectory(0)
  EndIf
EndIf

[Stilet]

Для Винды достаточно консольного скрипта Del c:\temp\ /s /f /q
В Линуксе тоже, ИМХО и в МакОсе