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 |