XProfan

Español

Descripción:

DragQueryFile liest el Namen uno ‚Dropped Files’ de.

Deklaration:

Def DragQueryFile(4) !SHELL32,DragQueryFileA

Parámetro:

1.Parámetro: Handle en una Speicherbereich, el el ‘Dropped Files’ enthält. Dieses Handle Läßt se encima el Abfangen el Message WM_DROPFILES (563) herausfinden.

2.Parámetro: Der en 0 beginnende Index (el Ordnungsnummer) des auszulesenden Files oder $FFFFFFFF, el número de aufgenommenen Files a erfahren .

3.Parámetro: Mindestens 261 Bytes große Bereichsvariable, el el ausgelesene File aufnimmt.

4.Parámetro: El Größe el Bereichsvariablen de Parámetro 3 en Bytes.

Rückgabewert:

Wenn en Parámetro 2 $ FFFFFFFF angegeben wurde, el número el aufgenommenen Files. Wenn una Filename ausgelesen wurde, son el Función el número el Buchstaben en el Filenamen zurück.
Wenn Parámetro 3 Null es y angegebene Index existiert, se el erforderliche Größe de Parámetro 3 en Byte zurückgegeben.

Beispiele:

Kompilieren Marca Separación

Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Declare Filelistbox&,Anzahl&,Zähler&,PFilename#
Windowstyle 31
Windowtitle "Listbox mit File Drag and Drop"
Window 0,0-640,440
Let Filelistbox&=@Createlistbox(%HWND,"",20,20,500,300)
@DragAcceptFiles(FileListbox&,1)
Usermessages 563

While 0=0

    waitinput

    IF %UMESSAGE=563

        DIM PFilename#,261
        LET ANZAHL&=@DragQueryFile(&UWParam,$FFFFFFFF,PFilename#,261)
        Usecursor 2

        While Zähler&<Anzahl&

            Clear PFilename#
            @DragQueryFile(&UWParam,Zähler&,PFilename#,261)
            @AddString(FileListbox&,String$(PFilename#,0))
            LET ZÄHLER&=ZÄHLER&+1

        wend

        Usecursor 0
        Dispose PFilename#
        @DragFinish(&UWParam)

    Endif

Wend