Используйте функцию SHAddToRecentDocs.

uses ShlOBJ;

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

Взято из http://forum.sources.ru

© GAiST 2004 - 2008