Belgeler Menüsüne Dosya Ekleme

uses ShlOBJ;

procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := 'C:\DownLoad\deneme.html';SHAddToRecentDocs(SHARD_PATH pChar(s));
end;