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

← →
library (2002-09-08 03:59) [0]

В модуле 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" в меню Документы по неизвестной мне причине не создаётся. Люди, кто знает причину - помогите !!!

← →
Poirot (2002-09-08 09:21) [1]

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

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

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

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

← →
Anatoly Podgoretsky (2002-09-08 12:34) [3]

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

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