Ejemplos usando el Api de windows para Visual basic

2 - Api GetBinaryType - Saber si un archivo es ejecutable y que tipo de ejecutable es

Ejemplo del Api-guide

La función Api GetBinaryType permite saber si un archivo es una aplicación ejecutable y que tipo de ejecutable se trata.

Mediante las constantes que figuran en el código se determina el tipo del mismo, puede ser un archivo Exe o binario de tipo MsDos, una aplicación win32, uno de 16 bits y algunas otras

Nota: el código , no comprueba se el archivo existe.

Código fuente en un formulario:

Option Explicit 'Constantes para la función GetBinaryType ''''''''''''''''''''''''''''''''''''''''' Const SCS_32BIT_BINARY = 0 Const SCS_DOS_BINARY = 1 Const SCS_OS216_BINARY = 5 Const SCS_PIF_BINARY = 3 Const SCS_POSIX_BINARY = 4 Const SCS_WOW_BINARY = 2 'Función Api GetBinaryType '''''''''''''''''''''''''' Private Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" ( _ ByVal lpApplicationName As String, _ lpBinaryType As Long) As Long Private Sub verificar(Path As String) Dim Ret As Long, sMsg As String If GetBinaryType(Path, Ret) <> 0 Then sMsg = "El archivo: " & Path & vbNewLine & String(50, "-") & _ vbNewLine & " ..es :" Select Case Ret Case SCS_32BIT_BINARY 'Es un Win32 sMsg = sMsg + "Aplicación win32" 'Aplicación MsDos Case SCS_DOS_BINARY sMsg = sMsg + "Aplicación MsDos" Case SCS_OS216_BINARY 'OS/2 sMsg = sMsg + "Aplicación de 16Bits basada en OS/2" Case SCS_PIF_BINARY 'Archivo Pif sMsg = sMsg + "Aplicación Msdos tipo PIF" Case SCS_POSIX_BINARY 'Posix sMsg = sMsg + "Aplicación POSIX" 'Aplicación de 16 bits Case SCS_WOW_BINARY sMsg = sMsg + "Apliación de windows de 16 Bits" End Select Else 'Si retorna un valor distinto a los anteriores no es un ejecutable sMsg = "El archivo: " & Path & vbNewLine & String(50, "-") & _ vbNewLine & " .. no es una Aplicación win32, ni un binario Dos :" End If 'Mostramos el retorno MsgBox sMsg, vbInformation End Sub Private Sub Form_Load() Call verificar("c:\windows\explorer.exe") Call verificar("c:\windows\system32\msvbvm60.dll") Call verificar("c:\windows\system32\command.com") End Sub

Buscar en Recursos vb