Как удалить все файлы из 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