Files Delphi

uses ShellAPI, ShlOBJ;
procedure AddToStartDocumentsMenu(sFilePath : string);
begin
SHAddToRecentDocs(SHARD_PATH, PChar( sFilePath ) );
end;