System Delphi

Title: add a file to the document menu?
uses ShellAPI, ShlOBJ;
procedure AddToStartDocumentsMenu(sFilePath: string);
begin
SHAddToRecentDocs(SHARD_PATH, PChar(sFilePath));
end;