Как удалить все файлы из Recent Documents List? |
Previous Top Next |
Для этого можно воспользоваться API функцией SHAddToRecentDocs:
Code: |
procedure TForm1.Button1Click(Sender: TObject); begin SHAddToRecentDocs(SHARD_PATH, 0); end; |
Не забудьте включить ShlObj в Unit
©Drkb::01661
Взято из http://forum.sources.ru