Как удалить все файлы из Recent Documents?
01.01.2007
Для этого можно воспользоваться API функцией SHAddToRecentDocs:
procedure TForm1.Button1Click(Sender: TObject);
begin
SHAddToRecentDocs(SHARD_PATH, 0);
end;
Не забудьте включить ShlObj в Unit