очистка буфера обмена

[beegl]

Сообщение от Aliens_wolfs

удаляет в ней все содержимое и папки и каталоги

показывает, что: Не могу удалить файл; Не могу удалить каталог:

if IOResult<>0 then begin 
ShowMessage("Не могу войти в каталог: "+Dir); exit; 
end; 
Found := FindFirst("*.*", faAnyFile, SearchRec); 
while Found = 0 do 
begin 
if (SearchRec.Name<>".")and(SearchRec.Name<>"..") then 
if (SearchRec.Attr and faDirectory)<>0 then begin 
if not DeleteDir(SearchRec.Name) then exit; 
end else 
if not DeleteFile(SearchRec.Name) then begin 
ShowMessage("Не могу удалить файл: "+SearchRec.Name); exit; 
end;

[Aliens_wolfs]

показывает, что: Не могу удалить файл; Не могу удалить каталог:

В папке Temp не все можно удалить так как есть файлы заняты системой или кэшь программ, что бы все удалять нужно выгружать из памяти но это может быть крахом системы так как там есть файл подкачки памяти

добчас, помогите добавить средствами API (чтоб прект не увеличивался) ещё ''до кучи'' очистку временных папок C:/Temp и C:/Windows/Temp

Вот с помощью ShellAPI

//Найти папку Temp
function _GetTempPath: string;
begin
SetLength(result, MAX_PATH);
SetLength(result, GetTempPath(MAX_PATH, PChar(result)));
end;

// Удаление методом ShFileOperation удаляет все содержимое вместе с назначенной папкой
function Deletes(srcDir: string): boolean;
var
  fos : TSHFileOpStruct;
  St : String;
begin
  St := srcDir + #0;
  FillChar(fos, SizeOf(fos), 0);
  with fos do
  begin
    wFunc := FO_DELETE;
    pFrom := PChar(St);
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
  end;
 Result := (0 = ShFileOperation(fos));
end;

применить Deletes(_GetTempPath); temp не удалит но многое удалит но не все

Да и вообще новую тему не хотите начать, а то этой уже много лет, да и вопросы тут уже другие)