اصافه کردن فایل به My recent

uses ShlOBJ;

var
    S : string;
begin
    S := 'C:\DownLoad\ntkfaq.html';
    SHAddToRecentDocs( SHARD_PATH, pChar(s) );
end;