procedure TForm1.Button1Click(Sender: TObject); begin SHAddToRecentDocs(SHARD_PATH, 0); end;
Не забудьте включить ShlObj в Unit