Показать сообщение отдельно
Старый 23.10.2009, 16:25   #49 (permalink)
01pump
Member
 
Регистрация: 01.01.2009
Сообщений: 13,216
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 415
По умолчанию

Ольгуня,
1) Выполните это
Код:
 
var
Lines : TStrings;
i : integer;
begin
Lines := TStringList.Create;
SearchFiles('%WinDir%', 'taskman.exe', Lines, true, false);
for i:= 0 to Lines.Count-1 do
AddToLog(Lines[i]+',Size='+inttostr(GetFileSize(Lines[i])));
SearchFiles('%System32%', 'taskman.exe', Lines, true, false);
for i:= 0 to Lines.Count-1 do
AddToLog(Lines[i]+',Size='+inttostr(GetFileSize(Lines[i])));
Lines.Free;
SaveLog(GetCurrentDirectory+'avz_log.txt');
end.
После выполнения комп не будет перезагружаться. Вам надо будет только в папке с программой avz найти файл avz_log.txt и содержимое этого файла сюда переписать.

2) Что с доступом к проблемным сайтам?
01pump вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070