Как добавить файл в меню Пуск / Документы?

Эта программа добавляет файл "File.txt" в "Пуск/Документы".

uses ShlOBJ;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SHAddToRecentDocs(SHARD_PATH, PChar('File.txt'));
end;

Автор: Даниил Карапетян (delphi4all@narod.ru)

Автор справки: Алексей Денисов (aleksey@sch103.krasnoyarsk.su)