KillTrashFx 1.4

''Список изменений:
- убрал очистку временных папок C:/Temp и C:/Windows/Temp;''
Ну вот и всё, приплыли...
Прощай, KillTrashFx...
P.S. Все мои комменты к этому файлу и ответы на них можно удалить.

Обновление от 15/01/2017 13:25:21
============
Причина редактирования: заменил файл

В новой версии есть баг - временные Temp-папки очищаются не полностью, т.е. при их очистке удаляются только находящиеся там файлы, а папки (с файлами, подпапками и т.п.) остаются нетронутыми... Жду баг-фикса...

Ув. INFOSV, а можно подробнее, как и куда это добавить? Я не программист...

 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; 

Ув. INFOSV, будь добр, добавь, пожалуйста, ещё ''до кучи'' очистку временных папок C:/Temp и C:/Windows/Temp. Заранее спасибо!
P.S. Прогу ClearTemp не предлагать, мне нужна ''однокнопочная'' программа...

LinokS, это исполняемый файл, а не установочный, ошибка какая-то происходит, или в чем проблема?

Для меня удобна эта программа, из-за того, что иногда система летит, а Акронис до \"взлета системы\" пока не нужен, но из автозапуска сервисы и исполняемые файлы Акрониса убирать не хочется, из-за того, что когда нужен будет - придется восстанавливать все процессы и сервисы и т.д.., .
Что думаете по этому поводу?) , нужная программка или не совсем?)

win x64 8.1-не устанавливается.

не знаю, было в корзине больше 1 Гиг мусора, проблемно очищало, а буфер такой процедурой:

 procedure   ClipboardClearAll;
begin
OpenClipboard(GetActiveWindow);
if CountClipboardFormats <= 0 then
begin
Exit;
end;
if CountClipboardFormats > 0 then
begin
 OpenClipboard(GetActiveWindow);
 EmptyClipboard;
 CloseClipboard;
 InvalidateRect(0, nil, True);
 SHAddToRecentDocs(CLS_CLB, nil);
end;
end;