Как добавить документы в папку `Старт`->`Документы`?

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

uses ShlOBJ;

procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := 'C:\DownLoad\ntkfaq.html';
SHAddToRecentDocs(SHARD_PATH, pChar(s));
end;

[001786]

Содержание раздела