¿Cómo puedo mostrar los menús contextuales 'Enviar a' y 'Abrir con'?

Hace un tiempo pregunté porcómo abrir el menú contextual de Windows (clic con el botón derecho) para un determinado archivo en Delphi. Sin embargo, incluso si todo funciona (casi), está bien, los submenús "Enviar a ..." y "Abrir con ..." no tienen ningún elemento, incluso cuando hago clic con el botón derecho en el Explorador en el mismo nombre de archivo que trabajar bien (Por ejemplo, 'Enviar a ...' tiene 'Escritorio (crear plano de corte)', 'Destinatario del correo electrónico', etc.).

¿Cómo puedo hacer que aparezcan esos menús?

Respuestas a la pregunta(1)

Su respuesta a la pregunta