Добавить файл в «Недавние документы»
Меню Пуск (правой кнопкой) -> Свойства -> Закладка "меню Пуск" -> "Настроить" -> "Дополнительно" -> отметить "Отображать недавние документы".
Если пункта Отображать недавние документы нет на вкладке, тогда выполнить следующее:
Заходим в групповые политики: Пуск -> Выполнить -> 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 ; |
Комментарии