Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CARRY-ON en 3 Abril 2006, 01:52 am



Título: PARA ABRIR UN PROGRAMA
Publicado por: CARRY-ON en 3 Abril 2006, 01:52 am
como hago para que cuando se jecute un programa que hice habra algun programa ejemplo el paint tengo que saber en que directorio esta ubicado ese programa  :huh:


Título: Re: PARA ABRIR UN PROGRAMA
Publicado por: Red Mx en 3 Abril 2006, 03:11 am
eso es facil

Código:
Option Explicit

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_NORMAL = 1
Private Sub command3_click()
Dim X
   X = ShellExecute(Me.hwnd, "Open", "C:\WINDOWS\system32\notepad.exe", &O0, &O0, SW_NORMAL)


End Sub
este es el code para que se ejecute el block de notas cuando presionas un boton solo cambia la ruta del block de notas por la que quieres


Título: Re: PARA ABRIR UN PROGRAMA
Publicado por: CARRY-ON en 3 Abril 2006, 03:26 am
gracias


Título: Re: PARA ABRIR UN PROGRAMA
Publicado por: Robokop en 3 Abril 2006, 03:27 am
hay una forma con la que te vas a horrar esas lineas simplemente asi

shell "C:\Ruta\archivo.exe"