| |
| |
|
| - page 1 - |
|
Nico
Madysa |
$H Windows.ph
$H Messages.ph
$I controls.prf
3 + 4 + 8
proc Add_Dir
parameters pfad$ , galerie% , p&
declare i%[14] , nextdir$
si (galerie% < 0)
p& = TV_AddItem(tv&,0,2,2,Laufwerk + pfad$ + \,i#[t%])
inc galerie%
inc t%
endif
ClearList
ClearList lb&[galerie%]
AddFiles pfad$ + \*
whileloop 0 , %GetCount
Match$(^~[.+~]$,ListBoxItem$(&loop))
si %MatchPos >= 0
AddStrings(lb&[galerie%],$Match)
endif
Endwhile
DeleteString(lb&[galerie%],Sélectionnez String(lb&[galerie%],(-1),[.]))
DeleteString(lb&[galerie%],Sélectionnez String(lb&[galerie%],(-1),[..]))
ClearList
MoveHandleToList(lb&[galerie%])
clear i%[galerie%]
tandis que i%[galerie%] < (GetCount(lb&[galerie%]))
nextdir$ = GetString$(lb&[galerie%],i%[galerie%])
nextdir$ = Mid $(nextdir$,2,len(nextdir$) - 2)
TV_AddItem(tv&,p&,0,1,nextdir$,i#[t%])
inc t%
si galerie% < 14
Add_Dir (pfad$ + \ + nextdir$) , (galerie% + 1) , i#[t% - 1].hItem&
endif
i%[galerie%] = i%[galerie%] + 1
Wend
endproc
proc finissons
FreeDLL shl&
il#.Destroy()
Dispose il#
Dispose i#[]
end
endproc
declare il# , tv& , tx& , shl& , i#[1999] , lb&[14] , t%
Faible i#[] , TV_Item
shl& = UseDll(SHELL32)
cls SysColor(15)
Titre de la fenêtre s'il te plaît attendre, erstelle Verzeichnisbaum...
whileloop 15
lb&[&loop - 1] = Créer(ListBox,%hWnd,1,0,0,0,0)
Endwhile
il# = New(ImageList)
il#.AddImage($SysPath + \Shell32.dll,3)
il#.AddImage($SysPath + \Shell32.dll,4)
il#.AddImage($SysPath + \Shell32.dll,8)
tv& = Créer(Treeview,%hWnd,il#.hList&,5,5,200,400)
Add_Dir C: , (-1) , 0 <-- ici den Laufwerksbuchstaben/Anfangspfad eingeben; am Ende darf ne...aucune Backslash stehen
TV_Expand tv& , i#[0].hItem&
SetText %hWnd , str$(t%) + Einträge im Treeview
whilenot IsKey(27)
waitinput
Wend
finissons
end
avec diesem Code wird un Treeview erzeugt et par Rekursion (suis je stolz, dass je cela hinbekommen habe!  ) avec allen Verzeichnissen eines Conduire pleine. malheureusement ist cela très compliqué et dauert assez longtemps. Daher habe je deux Fragen:
1.) comment viele Einträge contient cela Treeview chez euch maximum? (Steht pour dem magasin dans qui Titelleiste) Mir ca va tout autor, trop savons, si qui Handles reichen.
2.) Gibt es pas irgendeinen einfacheren Weg? dans qui Win32.hlp habe je rien trouvé et Assembler kenne je mich sonderlich aus. Könnte on cela so beschleunigen? |
 |
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
 | @Carlo
[offtopic] sur meinem P:-Laufwerk ... combien Laufwerke la hâte Du ? - 16 et plus ? - ensuite könntest Du pour mich la fois une Test durchführen. - je viens chez meinen Laufwerken seulement jusqu'à I: - Müsste mais mon Dateiverwaltung avec plus comment 12 Laufwerken testen à représentation trop vérifier - d'accord avec einem Test ? [/offtopic] |
|
| |
| |
| |
|
|
Thomas
Freier | allô Frank,
sur dem PC (avec SP2) fonctionne aussi chez mir alles einwandfrei.
sur dem Laptop (avec SP1) klappt seulement qui Treeview pas. Explorer-Demo avec Listview ist OK. Hatte seulement qui ext. USB-Platte dans le doute, änderte sich pas pour dem Entfernen et Neustart. |
|
| |
| |
| |
|
|
Carlo
Keil | Horst Horn
@Carlo [offtopic] Horst Hornsur meinem P:-Laufwerk ... combien Laufwerke la hâte Du ? - 16 et plus ? [/offtopic]
malheureusement non, mais je stamme encore aus DOS-Zeiten
et là donnais es den schönen Befehl subst. avec cela peux on sich prima Laufwerke faire, weil avec cela einem Pfad un Laufwerksbuchstabe zugewiesen wird. c'est très nützlich, si on z.B. sur deux PCs avec unterschiedlichen Verzeichnisstrukturen (privater et dienstlicher PC) avec Profan arbeitet et pas durable Pfad- ou bien Laufwerksbezeichnungen anpassen veux.
Dank qui Großzügigkeit de Bill (ou bien hat là quelqu'un geschlafen?) gibt es den Befehl sous XP toujours 
HTH
Carlo |
|
| |
| |
| |
|
|
| [offtopic]
allô Carlo
tant pis - là je une NC-Clone geschrieben habe et den aussi nutze, hätte mich déjà intéressé, comment qui Programmschleife ab dem 14 Laufwerk arbeitet. Über chaque qui deux la fenêtre peut dans qui ersten Reihe 13 Laufwerke erkannt et gezeigt volonté (so comment im Bild) Ab dem 14. Laufwerk soll eh bien une étage tiefer wieder vorne begonnen volonté. Zusätzlich doit narürlich qui beiden la fenêtre ensuite aussi kleiner dans qui Hauteur son. nie gemacht déjà avec qui Eingabe 6 Laufwerke simuliert et es schien aussi trop marcher. Lieber wäre mir mais déjà un realer Test [/offtopic] |
|
| |
| |
| |
|
|
GDL |
|
| |
| |
| |
|
|
 | Leg simple Laufwerke à Horst!
Start → Effectuer → %comspec% [enter] subst /? [enter] |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | allô Horst,
tu peux cela oui selber avec beliebig vielen Laufwerken einrichten.
simple sous Start -> Effectuer so souvent Subst M: C:Windows eingeben jusqu'à Du entweder genügend la hâte ou bien cela Limit de 26 erreicht ist. Bien sûr doit qui Laufwerksbuchstabe toujours un anderer et un freies Laufwerk son. tu peux aussi autre Dossier comme virtuelles Laufwerk prendre mais cela doit pas son.
Ok, iF était plus rapide  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 26.04.2007 ▲ |
|
| |
|
|
| @ iF + Jörg
OK - et comment bekomme je qui Laufwerke wieder weg ?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Subst /D M:
Pour einem Neustart sommes mais sowieso alle wieder weg. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 26.04.2007 ▲ |
|
| |
|
|
| merci 
Funktioniert
Siehe Bild |
|
| |
| |
| |
|
|
Nico
Madysa | OK, erstmal merci pour qui vielen répondre.
Den Tip avec dem magasin qui Dossier si es nötig ist, werde je sur jeden le cas umsetzen (là mir déjà so viele gens en supplément geraten avons  )
AddFiles.dll et qui Message werde je mir sur jeden le cas aussi regarder.
qui faute cela Element gibt es pas. ist simple trop expliquer: qui Code füllt qui Element-Handles des Treeviews dans un Array, le moi vorläufig sur 2000 Handles begrenzt habe, mais c'est oui encore erweiterbar. qui zweite faute c'est moi pas erklärbar; par cela intercepter de galerie% sollte qui maximale Rekursionstiefe eigentlich pas überschritten volonté. mais si je qui Dossier seulement zur Laufzeit lade, hätte sich cela Problem sowieso erledigt.
@Frank: comment viens je à cela Handle qui System-Imagelist? sans dem komm je plutôt mal à qui liste heran. |
|
| |
| |
| |
|
|
| So comment je cela beim Überfliegen gesehen habe pourrait galerie% pas toujours den gewünschten Zweck rencontrer. Besser chez solchen Rekursionsgeschichten pourrait folgendes son:
KompilierenMarqueSéparation |
|
| |
|
(2.003)
Deutsch
English
Français
Español
Italia
![27.04.2007 ▲Vollständiges citationAbsatzweise CitationZeilenweise Citation](./../../function-references/xprofan/endpr</pre>ndproc</a>
</pre></div><br clear="all">so peux Du z.B. sicherstellen cela une Rekursion pas überschritten wird.<br clear="all"><br clear="all">le tort: une Globale.<br clear="all"><br clear="all">Selbiges Verhalten sans Globale peut sich cependant aussi dank <a class=nav href="./../../function-references/xprofan/pcount/">%pcount <img src=".././../../i/lnk.gif" border=0/></a> nachstellen.</td></tr></table></td></tr><tr><td colspan=2> </td></tr><tr><td></td><td style="text-align:right;color:#888;font-size:80%"><table width=){kind=link}