Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/07/2004, 13:33
Masacontuco
 
Fecha de Ingreso: enero-2004
Ubicación: Argentina
Mensajes: 7
Antigüedad: 21 años, 1 mes
Puntos: 0
Si por ejemplo queres abrir el Nero para grabar CDs :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub CmdLLamadaNero_Click()

Dim nombrePrograma As String
Dim rutaArchivo As String

nombrePrograma = "Nero.exe"
rutaArchivo = "C:\Archivos de ProgramaProgramas\Ahead\Nero"

ShellExecute Me.hwnd, vbNullString, "nombrePrograma", vbNullString, "rutaArchivo", SW_SHOWNORMAL

Espero que te guste, si necesitas mas escribime a [email protected]