KillTrashFx - v.1.4

KillTrashFx
KillTrashFx - маленькая программа предназначена для очистки корзины, буфера обмена и временные документы (временные документы, т.е. которые находятся в меню Пуск -> Документы) - одним кликом. Во время очистки выполняется проверка на наличие файлов в корзине или на наличие текста/файла в буфере обмене.



Название: KillTrashFx
Дата выхода: 2010-2017
Разработчик: INFOSV
Поддерживаемый язык[и]: Eng-Rus
Платформа: Windows 10, 8, 7, XP, 2003, Vista
Cтатус: FreeWare (virusscan.jotti.org)




Список изменений:
- убрал очистку временных папок C:/Temp и C:/Windows/Temp; wink

+ Исходник KillTrashFx(12.0 Kb)



Рейтинг: 4
голосов: 5
Здесь находятся: всего 0. За сутки здесь было 0 человек
Нравится? 23 | понравился


* одобрено controller_atc 15:42 15 янв 2017
Уважаемый посетитель, Вы зашли на сайт как не зарегистрированный пользователь. Мы рекомендуем зарегистрироваться, либо войти на сайт под своим именем для получения полного доступа.
Комментарии 13
сортировка:

#13 VinK74 Профи 00:44 16 янв 2017 Nokia E63 Хмельницкий, Украина.
''Список изменений:
- убрал очистку временных папок C:/Temp и C:/Windows/Temp;''
Ну вот и всё, приплыли...
Прощай, KillTrashFx...
P.S. Все мои комменты к этому файлу и ответы на них можно удалить.
   
#12 INFOSV Разработчик ПО 13:25 15 янв 2017 Leagoo M5 Днепропетровск, Ukraine
Обновление от 15/01/2017 13:25:21
============
Причина редактирования: заменил файл
   
#11 VinK74 Профи 03:35 5 янв 2017 Nokia E63 Хмельницкий, Украина.
В новой версии есть баг - временные Temp-папки очищаются не полностью, т.е. при их очистке удаляются только находящиеся там файлы, а папки (с файлами, подпапками и т.п.) остаются нетронутыми... Жду баг-фикса...
   
#10 INFOSV Разработчик ПО 06:04 4 янв 2017 Leagoo M5 Днепропетровск, Ukraine
Цитата: VinK74
Я не программист...


и я не умею, на примерах что-то как-то оформил ... (там оформил) запрос bye
   
#9 VinK74 Профи 22:56 3 янв 2017 Nokia E63 Хмельницкий, Украина.
Ув. INFOSV, а можно подробнее, как и куда это добавить? Я не программист...
   
#8 INFOSV Разработчик ПО 21:55 3 янв 2017 Leagoo M5 Днепропетровск, Ukraine
Цитата: 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;
   
#7 VinK74 Профи 22:38 2 янв 2017 Nokia E63 Хмельницкий, Украина.
Ув. INFOSV, будь добр, добавь, пожалуйста, ещё ''до кучи'' очистку временных папок C:/Temp и C:/Windows/Temp. Заранее спасибо!
P.S. Прогу ClearTemp не предлагать, мне нужна ''однокнопочная'' программа...
   
#6 INFOSV Разработчик ПО 23:45 10 янв 2014 Leagoo M5 Днепропетровск, Ukraine
LinokS, это исполняемый файл, а не установочный, ошибка какая-то происходит, или в чем проблема?

Для меня удобна эта программа, из-за того, что иногда система летит, а Акронис до "взлета системы" пока не нужен, но из автозапуска сервисы и исполняемые файлы Акрониса убирать не хочется, из-за того, что когда нужен будет - придется восстанавливать все процессы и сервисы и т.д.., .
Что думаете по этому поводу?) smile , нужная программка или не совсем?)
   
#4 INFOSV Разработчик ПО 17:31 10 янв 2014 Leagoo M5 Днепропетровск, Ukraine
не знаю, было в корзине больше 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;