Uses ShlObj; procedure TForm1.Button1Click(Sender: TObject); begin SHAddToRecentDocs(SHARD_PATH, PChar('c:\test.txt')); end;