XProfan

Français

Beschreibung:

DlgDirListComboBox füllt une Combobox avec den Inhalten eines Ordners. qui Funktion füllt qui Combobox avec allen Fichiers, Laufwerken et Les sous-dossiers, qui den angegebenen Attributen entsprechen. sous pas NT-basierten Systemen gibt qui Funktion kurze Dossier et Ordnernamen zurück.

Deklaration:

DEF @DlgDirListComboBox(5) !User32,DlgDirListComboBoxA

paramètre:

1.paramètre: Handle des Fensters, sur dem qui Combobox platziert ist.

2.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui une trop durchsuchenden Dossier (peut-être. avec einem Dateinamen) contient. qui Funktion wechselt cela aktuelle Verzeichnis dans den angegebenen Dossier.

3.paramètre: qui ID qui trop füllenden Combobox comme Integer.

4.paramètre: ID eines Static Controls, cela den aktuellen Suchpfad ausgeben soll.

5.paramètre: Flags pour qui Dateiattribute qui trop suchenden Fichiers. Verschiedene Flags peut avec | addiert volonté.
-$20 = Archiv
-$10 = Verzeichnis
-$4000 = Laufwerke
-$8000 = Ausschließlich Ergebnisse avec allen angegebenen Attributen listen.
-$2 = Versteckt
-$1 = Schreibgeschützt
-$0 = Lese- et Schreibzugriff
-$4 = System
-$2000 = Messages volonté de qui Funktion à Hauptfenster et pas à qui Combobox gesendet.

Rückgabewert:

chez Misserfolg 0, ansonsten <>0.

Beispiele:

Kompilieren Marque Séparation

WINDOWSTYLE 31
WINDOWTITLE "Dateibrowser"
WINDOW 0,0-640,440
DEF @DlgDirListComboBox(5) !"User32","DlgDirListComboBoxA"
DEF @DlgDirSelectComboBoxEx(4) !"User32","DlgDirSelectComboBoxExA"
Declare Liste&,Suchstring$,TEXT&,Auswahl#,DLGDIR&
LET LISTE&=@Control("ComboBox","",$40000+$40000000+$10000000+$200000+$100000,20,40,300,300,%HWND,2111,%HINSTANCE)
LET TEXT&=@Control("STATIC","",$40000000+$10000000,20,20,300,20,%HWND,2112,%HINSTANCE)
LET Suchstring$="*.*"
@DlgDirListComboBox(%HWND,@addr(Suchstring$),2111,2112,$4000+1+2+4+$10+$20)

While 0=0

    Getmessage

    IF %LastMessage=515

        DIM Auswahl#,500
        LET DLGDIR&=@DlgDirSelectComboBoxEx(%HWND,Auswahl#,500,2111)

        IF DLGDIR&=1

            CHDIR @string$(Auswahl#,0)

        ENDIF

        Dispose Auswahl#
        @DlgDirListComboBox(%HWND,@addr(Suchstring$),2111,2112,$4000+1+2+4+$10+$20)

    endif

Wend