XProfan

English

Description:

DlgDirListComboBox filling a Combobox with whom Inhalten one Folder. The function filling The Combobox with all Files, Laufwerken and Subfolders, The whom angegebenen Attributen correspond to. under not NT-based Systemen gives The function short File and Ordnernamen back.

Deklaration:

DEF @DlgDirListComboBox(5) !User32,DlgDirListComboBoxA

Parameter:

1.Parameter: lever the Fensters, on the The Combobox platziert is.

2.Parameter: address one Strings or Memory-Variable with a String, the a To durchsuchenden Ordner (evtl. with a Filenames) contains. The function changes the actually directory into angegebenen Ordner.

3.Parameter: The ID the To füllenden Combobox as Integer.

4.Parameter: ID one Static Controls, the whom actually Suchpfad spend should.

5.Parameter: ? Happen? for Dateiattribute the To seeking Files. different ? Happen? can with | add go.
-$20 = archive
-$10 = directory
-$4000 = drives
-$8000 = solely Results with all angegebenen Attributen lists.
-$2 = cache
-$1 = Schreibgeschützt
-$0 = read- and Schreibzugriff
-$4 = system
-$2000 = Messages go from the function on Main window and not on The Combobox gesendet.

Return Value:

with failure 0, otherwise <>0.

Examples:

Compile Mark Separation

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