uses ShlOBJ; ... procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'C:\1\DelphiWorld.html'; //Здесь указываем имя нужного файла SHAddToRecentDocs(SHARD_PATH, pChar(s)); end;