XProfan

Español

Descripción:

GetBinaryType liefert el Typ uno ausführbaren Expediente zurück. Diese Función hay sólo bajo NT-basierten Windowssystemen.

Deklaration:

DEF @GetBinaryType(2) !KERNEL32,GetBinaryTypeA

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el Pfad y Namen el Ausführbaren Expediente enthält.

2.Parámetro: 4 Byte Bereichsvariable, el una Flag aufnimmt, el el Art el Expediente determinado.=>
-$0 = (SCS_32BIT_BINARY) 32Bit Windows Programa
-$1 = (SCS_DOS_BINARY) DOS Programa
-$2 = (SCS_WOW_BINARY) 16BIT Windows Programa
-$3 = (SCS_PIF_BINARY) PIF, el una DOS Programa aufruft
-$4 = (SCS_POSIX_BINARY) POSIX Programa

Rückgabewert:

0 si una Fehler aufgetreten es o Expediente no ausführbar es, ansonsten 1.

Beispiele:

Kompilieren Marca Separación

DEF @GetBinaryType(2) !"KERNEL32","GetBinaryTypeA"
Windowstyle 31+512
Windowtitle "Art einer EXE herausfinden"
Window 0,0-640,440
Declare FileChoose&
Declare Filename$,FileFlags#,Ausführbar&
LET FILECHOOSE&=@CreateButton(%HWND,"File zum Testen wählen",10,300,200,30)

While %MENUITEM<>-2

    Waitinput

    IF @Getfocus(FileChoose&)

        Clearlist
        LET FILENAME$=@Loadfile$("Datei auswählen","Programme|*.EXE;*.COM;*.PIF|Alle Dateien|*.*")

        IF FILENAME$<>""

            DIM FileFlags#,4
            Clear FileFlags#
            LET Ausführbar&=@GetBinaryType(@ADDR(FILENAME$),FileFlags#)
            ADDSTRING "DATEINASME="+Filename$

            IF AUSFÜHRBAR&=1

                ADDSTRING "Ausführbar=Ja"

                IF @Long(FileFlags#,0)=$0

                    ADDSTRING "32Bit Windows Programm"

                ElseIF @Long(FileFlags#,0)=$1

                    ADDSTRING "DOS Programm"

                ElseIF @Long(FileFlags#,0)=$2

                    ADDSTRING "16BIT Windows Programm"

                ElseIF @Long(FileFlags#,0)=$5

                    ADDSTRING "=16 Bit OS/2 Programm"

                ElseIF @Long(FileFlags#,0)=$3

                    ADDSTRING "PIF, die ein DOS Programm aufruft"

                ElseIF @Long(FileFlags#,0)=$4

                    ADDSTRING "POSIX Programm"

                Else

                    Addstring "FileTyp ist nicht bestimmbar"

                ENDIF

            Else

                ADDSTRING "Ausführbar=Nein"

            Endif

            DISPOSE FileFlags#
            @Listbox$("Dateiinfos",1)

        ENDIF

    endif

lass=s4 href='./../../funcion-referencias/XProfan/wend/'>Wend