Комментарий #254201 к KillTrashFx


Разработчик ПО
Реп. 995 -/+
(379)

Nokia 6630

Вечность
Пол: Мужской
Возраст - 24
[назад к KillTrashFx]

Цитата: VinK74
чистку временных папок C:/Temp и C:/Windows/Temp


добавте туда:

 function DeleteDir(Dir : string) : boolean; 
Var
Found : integer;
SearchRec : TSearchRec;
begin
result:=false;
if IOResult0 then ;
ChDir(Dir);
if IOResult0 then begin
ShowMessage("Не могу войти в каталог: "+Dir); ;
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 ;
end else
if not DeleteFile(SearchRec.Name) then begin
ShowMessage("Не могу удалить файл: "+SearchRec.Name); ;
end;
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
ChDir(".."); RmDir(Dir);
result:=IOResult=0;
end;

//result:

var
s1 : array[0..254] of Char;
begin
GetWindowsDirectory(s1, 255);
DeleteDir(s1+"\TEMP\");
end;



--------------------
1. Вы сейчас в интернете. 2. Вы на сайте Dimonvideo.ru 3. Вы читаете это. 5. Вы не заметили что

# от 21:55 3 янв 2017

   
Яндекс.Метрика