Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > проблема скрытия файлов

Автор: Teran 12.4.2006, 16:21

никто не сталквался с программами Elite Keylogger
Почему когда после установки этой проги код поиска файлов не работает

Код


procedure TSpyJackerMainForm.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  if FindFirst('c:\windows\system32\'+*.*, faAnyFile, SearchRec) = 0 then
  begin
    repeat
       if(pos(UpperCase('mscache.dll'),UpperCase(SearchRec.Name))>0)or
         (pos(UpperCase('windump.dll'),UpperCase(SearchRec.Name))>0)or
         (pos(UpperCase('mciole.dll'),UpperCase(SearchRec.Name))>0) then ShowMessage(SearchRec.Name);

    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
end;

хотя точно известно что они там писутствуют т.к. программа SpySweeper от Webroot их прекрасно видит
smile

Автор: Poseidon 12.4.2006, 17:09

Ну во-первых begin что в 6 строке тут лишний.
Во-вторых, нужно писать так: if FindFirst('c:\windows\system32\*.*', ...
В-третьих зачем переводить в верхний регистр известную нам строку? (хоть это и не существенно, но все же). Достаточно и так: if(pos('MSCACHE.DLL',UpperCase(SearchRec.Name))>0)or ...

PS. У меня таких фалов в System32 нету.

Автор: Teran 12.4.2006, 18:26

да

Цитата(Poseidon @ 12.4.2006, 17:09

)

писал по памати может и ошибся но это не главное

я имею ввиду что когда уставливаеш прогу Elite Keylogger
она както хитро прячет вот эти файлы (которых естественно у тебя нбудет пока не установиш) а вот как их определить ?? smile

может кто знает можно ли избавится от API хука например на функцию FindNextFile ???

smile