Seite 1 von 1
ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 02.07.2012 17:51
von 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?
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 02.07.2012 18:03
von NoUser
.
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 02.07.2012 18:25
von 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....
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 02.07.2012 22:38
von Pr0fessor
und wie bekomme ich bei ListViewGadget() nen Icon einer *.exe hineingebastelt?
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 02.07.2012 22:47
von 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.
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 02.07.2012 22:53
von 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
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 03.07.2012 09:27
von 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
Re: ExplorerListGadget() - mehrere verzeichnisse?
Verfasst: 03.07.2012 09:57
von 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.