Добавить файл в «Недавние документы»
Меню Пуск (правой кнопкой) -> Свойства -> Закладка "меню Пуск" -> "Настроить" -> "Дополнительно" -> отметить "Отображать недавние документы".
Если пункта Отображать недавние документы нет на вкладке, тогда выполнить следующее:
Заходим в групповые политики: Пуск -> Выполнить -> gpedit.msc
, там ходи в "Конфигурация пользователя" -> "Административные шаблоны" -> "Панель задач и меню Пуск" -> удалить меню "Документы" из главного меню. Нужно отключить, появится пункт Недавние документы в свойствах меню Пуск.
Сам код для добавления любого файла в Недавние документы приведен ниже.
procedure AddToStartDocumentsMenu(sFilePath: string); begin SHAddToRecentDocs(SHARD_PATH, PChar(sFilePath)); end;
Тестируем:
procedure TForm1.Button1Click(Sender: TObject); begin AddToStartDocumentsMenu('C:\temp\text.txt'); end;
Комментарии