ExplorerListGadget() - mehrere verzeichnisse?

[Pr0fessor]

huhu.... ich möchte ein kleines progrämmle basteln welches mir alle *.exe dateien in einem bestimmten Verzeichnis inkl. unterverzeichnisse anzeigt und die ich danach auch starten kann.

Nun weiß ich nicht genau welchen befehl ich dafür nehmen soll.....

ExplorerListGadget() scheint mir nur bedingt geeignet da es mir ja nur alle *.exe in einem Verzeichnis anzeigt - ohne unterverzeichnisse.

was sollte ich dafür nehmen?

[NoUser]

.

[Pr0fessor]

hmmm - ist aber irgendwie auch blöd, da ich gerne wie im Explorer Icons hätte und bei listicongadget muss man ja nen bild laden....

[Pr0fessor]

und wie bekomme ich bei ListViewGadget() nen Icon einer *.exe hineingebastelt?

[RSBasic]

Mit ExtractIcon_()/ExtractIconEx_(). Einfach das Icon aus einer beliebigen Datei in deiner erstellten Grafik zeichnen. Beispiel: http://www.rsbasic.de/aktualisierung/wi ... nzeigen.pb
Andere Beispielcodes kannst du mit der Board-Suche finden.

[ts-soft]

Code: Alles auswählen

EnableExplicit

Define InfosFile.SHFILEINFO
Define.s FileName1 = #PB_Compiler_Home + "PureBasic.exe"
Define.s FileName2 = #PB_Compiler_Home + "PureBasic.chm"

If OpenWindow(0, 100, 100, 300, 100, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 ListIconGadget(0, 5, 5, 290, 90, "DateiName", 280, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
 SHGetFileInfo_(FileName1, 0, @InfosFile.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_TYPENAME|#SHGFI_ICON|#SHGFI_SMALLICON)
 AddGadgetItem(0, -1, FileName1, InfosFile\hIcon)
 DestroyIcon_(InfosFile\hIcon)
 SHGetFileInfo_(FileName2, 0, @InfosFile.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_TYPENAME|#SHGFI_ICON|#SHGFI_SMALLICON)
 AddGadgetItem(0, -1, FileName2, InfosFile\hIcon)
 DestroyIcon_(InfosFile\hIcon)
 Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[Pr0fessor]

das funktioniert schonmal - danke! Aber gibt es nicht auch ne funktion ohne API zugriff? oder dann nur ohne dem Icon also als nur-Text?

sorry für die vielen Anfängerfragen aber es interessiert mich halt

[RSBasic]

@Pr0fessor
Nur Text ohne Icon: Einfach deine Verzeichnisse mit ExamineDirectory() einlesen und die Dateien, die du anzeigen möchtest, in deinem ListIconGadget hinzufügen.