| категории | закладки | история | добавить | RSS |
  

Наши разработки - ПК

15:42 15-01-2017 INFOSV (Разработчик ПО) Реп. 939 -/+
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)

INFOSV
2017-01-15T15:42:50Z
23 понравился
Рейтинг: 4
голосов: 5




Здесь находятся
всего 0. За сутки здесь было 0 человек

Комментарии 13

#13   VinK74    

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


0 ответить

#13   INFOSV    

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


0 ответить

#13   VinK74    

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


0 ответить

#13   INFOSV    

Цитата: VinK74
Я не программист...


и я не умею, на примерах что-то как-то оформил ... (там оформил) запрос bye


0 ответить

#13   VinK74    

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


0 ответить

#13   INFOSV    

Цитата: 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;


0 ответить

#13   VinK74    

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


1 ответить

#13   INFOSV    

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

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


* редактировал(а) INFOSV 15:05 12 янв 2014

0 ответить

#13   LinokS    

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


0 ответить

#13   INFOSV    

не знаю, было в корзине больше 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;


0 ответить

Напомнить пароль