uses
ShellAPI, ShlOBJ; procedure
AddToStartDocumentsMenu( sFilePath : string ); begin
SHAddToRecentDocs( SHARD_PATH, PChar( sFilePath ) ); end
; { Например} AddToStartDocumentsMenu( 'c:windowsMyWork.txt' );