я наверное вирусом HDD убил

[beegl]

привет, подскажите пожалуйста, этим можно "угробить" винчестер ( спустя 10 лет )? - если каждый день по 35-45 раз запускаю эту "утилиту" в течении 10 лет ( быстрая очистка корзины и папка Темп ) - сейчас куча ошибок, непонятные, ... вирусов нет. Или то просто винчестер отслужил уже (Win XP SP3)?

И много исполняемых файлов испорчены, т.е. "примерно" такая ошибка: не Win x32 программа.

Но, если программа в архиве, не портит исполняемый файл.

Запускаю её начиная из ~2009 - года

Или то просто винчестер старый очень?

Вот, Корзина (например):


вот такой код:

uses
  Tlhelp32, Windows, SysUtils, Messages, ShlOBJ;
{$R KillTrashFx.res}

 const
      CLS_CLB = $00000002;
      shell32 = 'shell32.dll';
      PROCESS_TERMINATE=$0001;

 procedure TrashClearAll;
var
   DllVersion: integer;
   SHQueryRBInfo: TSHQueryRBInfo;
   r: HResult;
begin
DllVersion := GetDllVersion(PChar(shell32));
if DllVersion >= $00040048 then
 begin
   FillChar(SHQueryRBInfo, SizeOf(TSHQueryRBInfo), #0);
   SHQueryRBInfo.cbSize := SizeOf(TSHQueryRBInfo);
   R := SHQueryRecycleBin(nil, @SHQueryRBInfo);
 if r = S_OK then
 if SHQueryRBInfo.i64NumItems <= 0 then
 begin
 Exit;
 end;
 if SHQueryRBInfo.i64NumItems > 0 then
 begin
 InvalidateRect(0, nil, True);
 EmptyRecycleBin;
 end;
end;
end;

и вот:

procedure EmptyRecycleBin;
 const
   SHERB_NOCONFIRMATION = $00000001;
   SHERB_NOPROGRESSUI = $00000002;
   SHERB_NOSOUND = $00000004;
 type
   TSHEmptyRecycleBin = function(Wnd: HWND;
                                 pszRootPath: PChar;
                                 dwFlags: DWORD): HRESULT;  stdcall;
 var
   SHEmptyRecycleBin: TSHEmptyRecycleBin;
   LibHandle: THandle;
 begin  { EmptyRecycleBin }
   LibHandle := LoadLibrary(PChar('Shell32.dll'));
   if LibHandle <> 0 then @SHEmptyRecycleBin :=
       GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
   else
   begin
//     MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
     Exit;
   end;
if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(GetActiveWindow,nil,SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil;
end;

[oldsnowman]

Теоретически, он мог от старости начать глючить, учитывая что его эксплуатировали как рабыню Изауру. В cmd запусти CHKDSK, или дугой нормальной утилитой проверь винт.

[NetSpace]

проверка HDD Из-под DOS с загрузочного диска.
у меня вторая система параллельно стоит, я бы ещё с неё помучал ту папку - удалится или нет...

[blackstrip]

scandisk запусти с проверкой диска, чтоб писало что где побилось и фиксило бы это

а скачай еще любую прогу, показывающую S.M.A.R.T. диагностику жесткого диска, и посмотри есть ли проблемные моменты у диска, на котором не удается удалить папку в корзине. Если есть и много - то лучше делай побыстрей резервную копию данных, а то мало ли совсем сдохнет жесткий =)

[beegl]

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

резервную копию данных

давно, ещё из ~ 2009-го года ) ( делаю резервную копию данных )

[kvitaliy]

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

Вот, Корзина

Очищай корзину весело!

[сфинкс]

есть программы показывающие какая программа
сейчас пишет на диск

и увидев как слишком часто обращается один модем

перешёл на другой модем пишущий меньше
и надеюсь срок службы диска продлится

[kvitaliy]

Сообщение от сфинкс

увидев как слишком часто обращается один модем

перешёл на другой модем пишущий меньше

Модем пишет на диск? Интересно, что может писать на диск модем? А главное зачем?

[сфинкс]

? логи ? ... логи ... ! логи !

мегабайт логов за минуту ежечасно
зато сейчас никаких logs

кстати надо бы проверить влияет ли моя программа
ежеминутно ничего не делающая закрывшая обновление

[kvitaliy]

Сообщение от сфинкс

мегабайт логов за минуту ежечасно

Да не верю. Не может модем логи писать на диск.
Наверно это программа какая то пишет логи. Но не модем же сам пишет, он вообще не для того предназначен.