Determinar si un fichero EXE es de Windows o de DOS

Esta función devuelve el tipo de fichero EXE que le indicas. Al llamar a la función le envías la ruta completa donde se encuentra el fichero, y la función devuelve TRUE si el fichero EXE es de Windows o devuelve FALSE si el ejecutable es del DOS.

Function TipoExe(Fichero As String) As Boolean
    Dim Car As String * 1, Canal As Integer
    
    Canal = FreeFile
    Open Fichero For Binary As #Canal
        Get Canal, 25, Car
    Close #Canal
    
    If Asc(Car) = &H40& Then
        ' Es de Windows
        TipoExe = True
    Else
        ' Es de DOS
        TipoExe = False
    End If
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s