• Lunes 23 de Diciembre de 2024, 00:30

Autor Tema:  Funcion  (Leído 1382 veces)

gcmmemo

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Funcion
« en: Martes 27 de Mayo de 2008, 03:36 »
0
Alguno de Ustedes me podria decir sobre una funcion para mandar llamar otro programa desde visual, o el .exe.

asi como por ejemplo en dev-c++ esta el system.
gracias

gcmmemo@gmail.com

Nebire

  • Miembro HIPER activo
  • ****
  • Mensajes: 670
    • Ver Perfil
Re: Funcion
« Respuesta #1 en: Martes 27 de Mayo de 2008, 09:36 »
0
La función se llama 'shell' y también está 'shellExecute'

Código: Text
  1.  
  2. dim ret as double
  3. ret= shell(ruta, estiloVentana)
  4.  
  5.  

Nota: ruta es un string que incluye los posibles parámetros que se haya de pasar al programa (si es el caso). Y donde estiloVentana indica si es modal o no, si está maximizada, oculta...

shellExecute es una API... esta es su declaración:
Código: Text
  1.  
  2. Public 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
  3.  
  4.  
«Ma non troppo»
----> ModoVacaciones = False<----

anarkia87

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
    • http://www.thedaniex.com
Re: Funcion
« Respuesta #2 en: Martes 27 de Mayo de 2008, 16:05 »
0
uhm haber aca te dejo un ejemplo simple de usar en este caso llamaremos alos juegos de windows k es el solitario y spider:

pones por decir 2 comandbutton

Código: Text
  1. Private Sub Command1_Click()
  2. id = Shell(&#34;c:&#092;windows&#092;system32&#092;sol.exe&#34;, 1)
  3. End Sub
  4.  
  5.  
  6. Private Sub Command2_Click()
  7. id = Shell(&#34;C:&#092;windows&#092;system32&#092;spider.exe&#34;, 1)
  8. End Sub
  9.  


Como veras es algo simple basta con saber la ruta del ejecutable, bueno espero k te sirva de algo... Salu2
"Yo solo se que entre mas creo saber mas dudas tengo" Pero eso es lo hermoso del conocimiento "El Aprehender"

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Funcion
« Respuesta #3 en: Martes 27 de Mayo de 2008, 16:31 »
0
Cita de: "Nebire"
La función se llama 'shell' y también está 'shellExecute'

Código: Text
  1.  
  2. dim ret as double
  3. ret= shell(ruta, estiloVentana)
  4.  
  5.  

Nota: ruta es un string que incluye los posibles parámetros que se haya de pasar al programa (si es el caso). Y donde estiloVentana indica si es modal o no, si está maximizada, oculta...

shellExecute es una API... esta es su declaración:
Código: Text
  1.  
  2. Public Declare Function ShellExecute Lib &#34;shell32.dll&#34; Alias &#34;ShellExecuteA&#34; (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
  3.  
  4.  
Voto por la Primera: Shell, para abrir programas (Tu caso)
Voto por la segunda: ShellExecute, para abrir archivos asociados a algún programa determinado.
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.