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