| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создать ярлык для папки и поместить его в Пуск -> Документы.

library ©   (2002-09-08 03:59:00) 

В модуле ShlObj есть такая вещь, как SHAddToRecentDocs. Если создавать ярлыки к файлам, то это срабатывает.

procedure RecentDocs(Const Filename: string);
begin
SHAddToRecentDocs(SHARD_PATH, @Filename[1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RecentDocs("C:\Doc\27.txt");
end;

А когда вместо RecentDocs("C:\Doc\27.txt") я пишу RecentDocs("C:\Doc") то ярлык для папки "C:\Doc" в меню Документы по неизвестной мне причине не создаётся. Люди, кто знает причину - помогите !!!

---

Anatoly Podgoretsky   (2002-09-08 12:34:00) [1]

Папка это не документ

---

Макс Черных   (2002-09-08 12:24:00) [2]

>Poirot
Реестр тут не при чем.

В том же MSDN черным по белому написано, что SHAddToRecentDocs
работает только с файлами.

---

Poirot   (2002-09-08 09:21:00) [3]

А он и недолжен!!!!
Я покрайней мере в где-то в реестре видел список допустимых расширений для RecentDocs... И Там папки нет!!!

---

Наверх