[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 определены соотв. константы.

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

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