Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Xephiro en 24 Diciembre 2006, 18:04 pm



Título: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
Publicado por: Xephiro en 24 Diciembre 2006, 18:04 pm
Hola, tengo la siguiente pregunta en VB6, quiero abrir archivos de cuarlquier extensión por medio de un programa hecho con VB..

Hay alguna manera ? ... porque para lo que son ejecutables se puede usar shell "Direccion del archivo" y listo, pero en el caso de un archivo .txt o .doc o .avi para que se abra que puedo hacer ??

porque usando shell "cmd /c " & archivo habre, pero si la direccion o el nombre del archivo contiene un espcio no lo hace porque el cmd no acepta los espacios... :S que puedo hacer¿?¿?¿ :huh: :huh: :huh: :huh:


Título: Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
Publicado por: DrakoX en 24 Diciembre 2006, 18:43 pm
proba con el API: ShellExecute

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

· hwnd
Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.

· lpOperation
Pointer to a null-terminated string that specifies the operation to perform. The following operation strings are valid:
“open”
 The function opens the file specified by lpFile. The file can be an executable file or a document file. The file can be a folder to open.
“print”
 The function prints the file specified by lpFile. The file should be a document file. If the file is an executable file, the function opens the file, as if “open” had been specified.
“explore”
 The function explores the folder specified by lpFile.

The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile.

· lpFile
Pointer to a null-terminated string that specifies the file to open or print or the folder to open or explore. The function can open an executable file or a document file. The function can print a document file.

· lpParameters
If lpFile specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies parameters to be passed to the application.
If lpFile specifies a document file, lpParameters should be NULL.

· lpDirectory
Pointer to a null-terminated string that specifies the default directory.

· nShowCmd
If lpFile specifies an executable file, nShowCmd specifies how the application is to be shown when it is opened. This parameter can be one of the following values:
SW_HIDE
 Hides the window and activates another window.
SW_MAXIMIZE
 Maximizes the specified window.
SW_MINIMIZE
 Minimizes the specified window and activates the next top-level window in the Z order.
SW_RESTORE
 Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW
 Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
 Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED
 Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
 Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
 Displays the window as a minimized window. The active window remains active.
SW_SHOWNA
 Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
 Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL
 Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.

If lpFile specifies a document file, nShowCmd should be zero.

salu2


Título: Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
Publicado por: VirucKingX en 24 Diciembre 2006, 18:54 pm
a mi me funciona bien :

Citar
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

Private Sub Command1_Click()
 Dim xD As Long
 xD = ShellExecute(Me.hwnd, "Open", "C:\1.txt", "", "", 1)
End Sub

Bye


Título: Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
Publicado por: DrakoX en 24 Diciembre 2006, 19:00 pm
aca dejo otra:

Código:
'En el modulo
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

Public Sub Ejecutar_Archivo(strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "", strProgram, "", "", SW_SHOWNORMAL)
If lRet <= 32 Then
MsgBox "Error ejecutando el Archivo"
End If
End Sub

Código:
'En el Form
Ejecutar_Archivo ("Ruta de Archivo")

salu2 y suerte


Título: Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
Publicado por: Xephiro en 24 Diciembre 2006, 19:25 pm
Muchas gracias, me sirbieron de mucho, y ya lo solucione con esos aporte ...


Título: Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
Publicado por: DrakoX en 24 Diciembre 2006, 19:39 pm
ok,
impekable,
me alegro que te alla servido

chau