XProfan

- page 2 -

Jörg
Sellmeyer

je meinte aussi qui SubClassProc. quoi ist car dans Deinem Verzeichnis drin. Comme je le disais: chez mir stürzt es aussi häufiger chez "A" ab mais plan aussi chez anderen Verzeichnissen.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

16.07.2009 ▲

Frank
Abbing

Stell la fois sûrement, dass am Pfadende ne...aucune "/", bzw. » steht. Bzw. dass es là steht, habs pas plus si bien dans Erinnerung. je mon, je hätte aussi déjà cet Probleme avec cela gehabt chez qui Listview.dll.

16.07.2009 ▲

Dieter
Zornow

merci pour qui Tipps, mais es ändert sich rien.

@Si: mon subclassing ist peut-être ungewöhnlich et simple, mais es funktioniert einwandfrei et pourrait somit zulässig son. si je cela Subclassing herausnehme et sur einfachen Klick reagiere ändert sich rien am Absturz.
@Jörg dans dem Verzeichnis sommes normale Fichiers, hat mais avec cela aussi rien trop 1faire, là es avec dem Namen BAdressen sans Problem allez.
@Frank dans qui direction ist alles ok, habe mir déjà alle Pfade Montrer laisser.

là es scheinbar aucun Solution gibt, muss je cela Ding wohl aufgeben, quoique es mich brennend intéressé quoi qui Grund ist.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

si on qui subClassProc umgestellt hat, ensuite reicht un
Kompilieren Marque Séparation

Proc AddAssociatedIcon

    Parameters name$,i&,Imagelist&
    return 0//<--/pre>

avec cela rien abstürzt.

je hab zwar avec imageListen encore rien angefangen mais sans Icônes peux je dans chaque Verzeichnis échanger.

exposition la fois:
Kompilieren Marque Séparation

Proc AddAssociatedIcon

    Parameters name$,i&,Imagelist&
    var Hicon&= External("Shell32","ExtractAssociatedIconA",%hinstance,addr(name$),addr(i&))
    External("comctl32.dll","ImageList_AddIcon",Imagelist&,HIcon&)       Icon in Imagelist hinzufügen
    External("USER32.DLL","DestroyIcon",HIcon&)                         Handle löschen
    messagebox str$(imageList&),name$,0
    var a&=External("comctl32.dll","ImageList_GetImageCount",Imagelist&)
    messagebox "5","",0
    return a&

oc

sans:
Kompilieren Marque Séparation

Proc PlusBackslash

    parameters pfad$
    declare pfad#,result$
    Dim pfad#,len(pfad$)+1
    string pfad#,0 = pfad$
    External("shlwapi","PathAddBackslashA",pfad#)
    result$ = string$(pfad#,0)
    Dispose pfad#
    return result$

oc

stürzt cela Programme pas plus ab, zumindest que voici: [...]

. j'ai simple bisl arriéré "geproggt" (im Sinne des Minimalbeispieles) jusqu'à es correct funzt. cela heisst naturellement pas, dass faute pas aussi à anderen se mettre entstanden son peut, mais une funktionierende la base ist selten mal zum Fehlerfinden. ^ ^

Dieter
Zornow

Ok, merci

je werde es la fois ausprobieren, si cela chez mir aussi fonctionne, werde Je l' faute bestimmt trouver, par hinzutun Schritt pour Schritt.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Dieter
Zornow

@IF Dank deiner Vorarbeit funktioniert es eh bien chez mir einwandfrei. je peux Adressen zig la fois ouvrir. j'ai trop Beginn seulement la fois alle Api-Funktionen so umgestellt comment dans deinem Beispiel, de Addr() trop Bereich# et chez qui Stringzuweisung einer Bereichsvariablen un zéro-Byte angehängt. déjà cela hat es gebracht. Ist mir allerdings inintelligible Profan sollte cela richtig faire et chez String Bereich#,0 bereits un zéro-Byte anhängen. avec addr(variable) muss ensuite scheinbar aussi très prudent tourner autour de, am besten gar pas verwenden. Im Anhang ist qui neue Version avec Icônes et allem, pourrait quelqu'un la fois testen si es maintenant überall funktioniert, cela wäre super si es so wäre.

sur jeden le cas herzlichen Dank, je hatte l'espoir déjà presque aufgegeben, ici encore weiterzukommen.

griddir.zip	5 kB

Hochgeladen:	17.07.2009

Downloadcounter:
		Download

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

de rien!

Aus solch reagierendem ListView pourrait on aussi un Contrôle faire, ensuite hätte on es toujours et überall et devrait sich pas ums Drumherum kümmern. create("loadFile",getDir$("@"),10,10,200,200)

Frank
Abbing

Dein Code liesse sich sûrement encore optimaliser. So voyons qui Icônes malheureusement droite bescheiden aus, irgendwas passt encore pas so entier.
à gauche une Fileliste mittels qui Listview.dll, à droite cela Ergebnis avec deinem Code.

Screen 17.07.2009, 20 Uhr 58, 58 Sek.png	30 kB

Hochgeladen:	17.07.2009

Downloadcounter:
		Download

- page 3 -

Dieter
Zornow

oui, qui Icônes sommes blasser, wahrscheinlich weil qui Herkunft verschieden ist. chez qui Listview.dll habe je mais chez mir festgestellt, dass pas chacun Dossier un Icon bekommt, c'est pourquoi habe je une autre Herkunft gewählt. la fois voyons quoi sich là faire läßt.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

18.07.2009 ▲