CreateSO

Declare Function GetBinaryType Lib "kernel32" Alias _
"GetBinaryTypeA" (ByVal lpApplicationName As String, _
lpBinaryType As Long) As Long
Public Function TipoExe(NomeFile as String) as String
Dim Dummy As Long, TipoFile As Long
Dummy = GetBinaryType(NomeFile, TipoFile)
If Dummy = 1 then
Select Case TypeB
Case 0
TipoExe = "Programma a 32 Bit per Windows"
Case 2
TipoExe = "Programma a 16 Bit per Windows"
Case 1
TipoExe = "Programma per DOS"
Case 5
TipoExe = "Programma per OS/2"
Case 3
TipoExe = "Programma Windows generico, File PIF"
Case 4
TipoExe = "File in formato eseguibile POSIX per Unix"
End Select
Else
TipoExe = vstringnull 'il file non e' un eseguibile
End If
End Function

Con la funzione seguente, e' possibile determinare il tipo
di sistema operativo per il quale il file eseguibile,
passatogli come argomento, e' stato compilato.