Как очистить папку 'Документы' меню 'Старт'?

Олег Кулабухов приводит следующий код:

Просто используйте SHAddToRecentDocs() с параметром имени файла nil.

uses
ShlOBJ;

procedure TForm1.Button1Click(Sender: TObject);
begin
SHAddToRecentDocs(SHARD_PATH, nil);
end;

[001841]