Как удалить все файлы из Recent Documents List?
Falk0ner, вс, 06/07/2008 - 15:34.
Не забудьте включить ShlObj в Unit
Для этого можно воспользоваться API функцией SHAddToRecentDocs:
procedure TForm1.Button1Click(Sender: TObject);
begin
SHAddToRecentDocs(SHARD_PATH, 0);
end;
begin
SHAddToRecentDocs(SHARD_PATH, 0);
end;
Не забудьте включить ShlObj в Unit
Взято из http://forum.sources.ru
Отправить комментарий