System Delphi

uses kısmına ShlObj ünitini ilave edin;
procedure TForm1.Button1Click(Sender: TObject);
var
isim : string;
begin
isim := 'C:\DownLoad\deneme.html';
SHAddToRecentDocs(SHARD_PATH, pChar(isim));
end;