XProfan

Français

Beschreibung:

GetBinaryType liefert den Typ einer ausführbaren Dossier zurück. cet Funktion gibt es seulement sous NT-basierten Windowssystemen.

Deklaration:

DEF @GetBinaryType(2) !KERNEL32,GetBinaryTypeA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui Pfad et Namen qui Ausführbaren Dossier contient.

2.paramètre: 4 Byte Bereichsvariable, qui une Flag aufnimmt, qui qui Art qui Dossier bestimmt.=>
-$0 = (SCS_32BIT_BINARY) 32Bit Windows Programme
-$1 = (SCS_DOS_BINARY) DOS Programme
-$2 = (SCS_WOW_BINARY) 16BIT Windows Programme
-$3 = (SCS_PIF_BINARY) PIF, qui un DOS Programme aufruft
-$4 = (SCS_POSIX_BINARY) POSIX Programme

Rückgabewert:

0 si un faute aufgetreten ist ou bien qui Dossier pas ausführbar ist, ansonsten 1.

Beispiele:

Kompilieren Marque Séparation

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