[ecfisa]

Hola Impadron.

Usando FileName, también tenes que pasarle la aplicación a ejecutar:

 ShellExecute(Handle,
              "open", // Acción
              "explorer.exe",   // Aplicación
              ExtractFilePath(OpenDialog1->FileName).c_str(), // Ruta
              "",
              SW_SHOWNORMAL);

Saludos.