Ajouter un document dans le menu 'Mes documents'

uses ShellAPI, ShlOBJ;

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