Se puede lanzar la apertura de un fichero? - VB-MUNDO

buligan · #1 (**permalink**) 18-10-2004, 13:06:48

Hola a todos

Igual el título no es muy expresivo pero no sabía cómo ponerlo. Me explico:

¿Puedo hacer algo parecido a un Shell pero dándole sólo un nombre de fichero y dejar que Windows se encargue de ver la extensión y abrirlo?

En concreto quiero lanzar un fichero power point show, pero si hago un shell de power point me lo abre en modo edición y eso es lo que quiero evitar a toda costa.

ideas? gracias

acalanto · #2 (**permalink**) 18-10-2004, 13:20:03

Shell sólo admite ejecutables a los que naturalmente puedes añadir parámetros tal y como si lo invocasse desde ejecutar.

En el caso de Power-Point es lógico que te lo abra en modo diseño pues éste es el modo en el que sucedería si lo abres desde el propio PowerPoint.

Power Point dispone de una herramienta para generar un empaquetado de la presentación en la que adjunta todo lo necesario pata invocarla desde un shell. (Incluye un ejecutable que muestra la presentación sin que por ello necesite cargar Power Point)

No sé si esto te puede solucionar el problema, creo que sí.

buligan · #3 (**permalink**) 18-10-2004, 13:31:38

Seguiré estudiando el tema, ya he probado lo del asistente de empaquetado y no creo que me vaya a servir pero muchas gracias.

De todas formas, si la apertura normal de un fichero pps es la presentación del documento no entiendo por qué al hacer un shell lo abre en modo edición.

Estoy intentando proteger la presentación anti copias y manipulaciones y la verdad es que me está costando ver por dónde tirar.

Un saludo y muchas gracias

J.M.Movilla · #4 (**permalink**) 18-10-2004, 15:57:33

Creo que esta instrucción resuelve tus deseos:

Código:

X = ShellExecute(Me.hWnd, "Open", "RutaCompleta\NombreFichero.pps", "", "c:\windows", 1)

MiguelS · #5 (**permalink**) 18-10-2004, 17:38:51

La respuesta de Jose Maria es correcta pero hay que declarar el API

Código:

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

y despues se pude usar

Código:

ShellExecute 0, "open", sFile, 0, 0, 1

Miguel[/code]

J.M.Movilla · #6 (**permalink**) 18-10-2004, 17:45:16

Bueno, por supuesto. No hablé de la declaración de la API porque Buligan se estaba ya refiriendo a cómo manejarla, por lo que di por hecho que ya la tenía declarada... No obstante, está perfecta la corrección puesto que este mensaje podría crear confusión a otras personas que no cayeran en ese detalle. Gracias.

buligan · #7 (**permalink**) 19-10-2004, 09:18:09

es justo lo que necesitaba, muchas gracias

buligan · #8 (**permalink**) 19-10-2004, 14:15:47

Siento dar la lata otra vez pero tengo otro pequeño problema:

Quiero esperar a que el proceso lanzado termine pero ShellExecute no me devuelve el número de proceso. Aunque llevo un buen rato revisando posts anteriores no tengo muy claro el tema.

Más o menos querría hacer algo del tipo:

(no veo necesario poner las declaraciones de funciones y variables):

PROCESO = ShellExecute(1, "Open", dirDESTINO + fileDESTINO, "", "c:\windows", 1)

SINCRONIZAR = OpenProcess(&H400, False, PROCESO)
If SINCRONIZAR <> 0 Then
Call WaitForSingleObject(SINCRONIZAR, &HFFFFFFFF)
Call CloseHandle(SINCRONIZAR)
End If

Esta última parte la he sacado de otro post de este foro, el problema es que no me había dado cuenta de que en 'PROCESO' no tengo el ID del proceso, de hecho sólo sirve para informar de errores, por lo que esto no puede funcionar.

Agradecería otra ayudita, saludos