как узнать, есть какие-то документы Пуск -> Документы

[beegl]

Сообщение от Аватар

CSIDL_PERSONAL для папки Мои документы.

а какой параметр отвечает за историю открываемых документов?

[beegl]

какой параметр отвечает за историю открываемых документов?
и напишите или подскажите, как это программно записать

[Serge_Bliznykov]

загляните сюда:

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU\*]

возможно это то, что Вы ищите..

[beegl]

Serge_Bliznykov, не то, там отображается общее открытые документы, в списке файл Описание 3G модема Sierra 597 Compass.txt, а в структуре

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU\*]

этого файла совсем нет.

[Yurk@]

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

а какой параметр отвечает за историю открываемых документов?

CSIDL_RECENT

но в любом случае этим ты не получишь данные есть ли там файлы. прийдется получать кол-во файлов вручную
PS. с даты первого поста (21.02.2013) прошло больше месяца, а ты упорно не хочешь использовать уже готовое решение, а пытаешься найти неизвестно что.
где логика? или религия не позволяет решать задачи простыми путями?

[beegl]

Yurk@, напишите пожалуйста пример с использованием этого параметра

[Yurk@]

вырезал со своего кода

procedure ClearForlder(Path: PChar);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  try
    FindResult := FindFirst(Path + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
          DeleteFile(Path + Name);
          FindResult := FindNext(SearchRec);
        end;
    Finally
      FindClose(SearchRec);
    end;
  Finally
  end;
end;

подсовывай процедуре путь к папке и всё тебе будеть!

[beegl]

как узнать путь, у меня Windows XP SP3, как программно узнать путь,

[Yurk@]

1. прочитав пост №2
2. используя CSIDL_RECENT и SHGetSpecialFolderPath (пост №3)

[beegl]

и что здесь не верно?

procedure TForm1.Button2Click(Sender: TObject);
var
   s: string;
begin
SetLength(s,MAX_PATH);
ClearForlder(PAnsiChar(SHGetSpecialFolderPath(0,PChar(s),CSIDL_PERSONAL,True)));
end;
end.