[Der_G()RuNu(h]

Задался вопросом: как отследить все недавно открытые документы через Delphi?

И даже не знаю, с чего начать... может кто подскажет?

[roamer]

Как вариант (имя папки, где недавние документы):

Код:

uses
  ShlObj,
  ...;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage(GetSpecialPath(CSIDL_RECENT));
end;

В модуле ShlObj определены соотв. константы.

[lmikle]

вообще, большинство файловых систем (NTFS в том числе) сохраняют дату последнего обращения к файлу (даже на чтение). Но тут надо понимать, что придется проверять весь винт и это может быть долго. Еще вариант - хукнуть функции API для доступа к файлам и просто логировать все, что нужно.

[PhoeniX]

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

хукнуть функции API для доступа к файлам и просто логировать все, что нужно.

Антивирус рад не будет.

[Der_G()RuNu(h]

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

Еще вариант - хукнуть функции API для доступа к файлам и просто логировать все, что нужно.

Каспер это не одобрил... :-D

[Der_G()RuNu(h]

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

Как вариант (имя папки, где недавние документы):

Код:

uses
  ShlObj,
  ...;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage(GetSpecialPath(CSIDL_RECENT));
end;

В модуле ShlObj определены соотв. константы.

об этом я тоже думал...
спасибо конечно...

но это немного не то, потому что мне надо отследить какие процессы запускались, на какие сайты заходили в браузере...

[Lucky192]

Что-то темы у вас какие-то странные... То кнопку в чужом приложении нажать, то системные файлы найти и удалить, теперь вот за действиями пользователя следить... В вирусописатели подались?

[Der_G()RuNu(h]

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

Что-то темы у вас какие-то странные... То кнопку в чужом приложении нажать, то системные файлы найти и удалить, теперь вот за действиями пользователя следить... В вирусописатели подались?

Боже упаси...
просто интересно все, что необычно и небанально...

[Der_G()RuNu(h]

неужели никто ничего дельного предложить не может?

[Pyro]

Сделать программу, которая делает снимок всех доступных фалов - записывает имена, дату доступа,размер,можно md5
потом вторуюкоторая анализирует данные двух снимков
есть такие готовые, названий не знаю, я тоже такую делал, но забросил временно

[Der_G()RuNu(h]

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

Сделать программу, которая делает снимок всех доступных фалов - записывает имена, дату доступа,размер,можно md5
потом вторуюкоторая анализирует данные двух снимков

интересная мысль...
спасибо

[NumLock]

Сообщение от Der_G()RuNu(h

интересная мысль...

да уж, особенно когда в системе 50000 файлов и 5000 папок - самый оптимальный вариант, ага

[Konrad]

И чтобы проверяла каждые 5 минут...
Чтобы винт вылетел с системника

[Pyro]

если без мд5 делать то можно всякую интерестную статистику вытаскивать, или поиск быстрый делать по sql, всякие древние файлы находить, у меня был такой скрипт я находил файлы, которые меняют мд5 но не меняют дату изменения в папке windows например

[Der_G()RuNu(h]

я пока что сделал проще:
по таймеры за определенное кол-во времени записываются в текстовый документ все открытые окна, невидимые, дочерние окна...

но это тоже не вариант...