La Web del Programador: Comunidad de Programadores
 
    Pregunta:  46799 - ESTABLECER RUTA DE LOS PROGRAMAS EN DOS SISTEMAS OPERATIVOS
Autor:  Victor Guzman
Hola, quisiera q me ayuden a establecer un codigo para poder abrir archivos .exe como la calculadora de windows, office(word,excel,etc) desde mi aplicacion de visual basic 6.0 , pero q a la hora de empaquetarlo y instalarlo en otra maquina q tenga dos sistemas operativos me pueda encontrar dicho programa sin problema es decir sin usar la ruta shell(c://.......) ya q puede q el sistema se encuentre en la unidad D, desde antemano muchas gracias

  Respuesta:  Boluart Bedoya
Quizas lo que realmente quieras es obtener la ruta de donde esta instalado tu sistema operativo, de ser asi aqui tengo una forma de obtenerlo.

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim sSave As String, Ret As Long
sSave = Space(255)
Ret = GetSystemDirectory(sSave, 255)
sSave = Left$(sSave, Ret)
MsgBox "Windows System directory: " + sSave
End Sub

espero que sea lo que buscabas