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

Цитата:
Сообщение от Ольгуня Посмотреть сообщение
Я выполнила все, этот фаил появился, но он пуст!!!
А после этого скрипта что будет в логфайле
Код:
 
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.
ЗЫ И что с доступом к контакту?
01pump вне форума   Ответить с цитированием
Ads

Яндекс

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