XProfan

- page 2 -

Julian
Schmidt

Ok, cela scheint trop marcher.

Allerdings scheint Windows quand même mon Desktop.ini pas anzunehmen.

exposition la fois. [...]

venons là chez dir qui Dossier-Icônes pour dem Effectuer.

test.rar	814 kB

Hochgeladen:	25.05.2013

Downloadcounter:
		Download

Richtig, aktualisiert aussi chez mir (XP) pas.

Habe la fois RegDump gemacht avant et pour Changement -

scheint dans qui Reg sich dadurch rien trop changement.

mais exposition la fois ici steht quoi: [...]

[...]

Julian
Schmidt

Klappt immernoch pas richtig.
Kompilieren Marque Séparation

Def PathMakeSystemFolder(1) !"Shlwapi", "PathMakeSystemFolderA"
Def DateiName(1) SubStr$(@$(1),-1,"\\")
Def DateiEndung(1) SubStr$(@$(1),-1,".")
Def DateiPfad(1) Translate$(@$(1),("\\" + DateiName(@$(1))),"")+"\\"
Var Programm$=Par$((Upper$(DateiName(Par$(0)))="PROFAN.EXE") or (Upper$(DateiName(Par$(0)))="XPROFAN.EXE"))
Declare Folder$, Icon$, DesktopIni$
Var l&=Create("List", 0)
ClearList
ChDir DateiPfad(Programm$)
AddFiles *"*.ICO"
MoveListToHandle(l&)

whileloop 1, Getcount(l&)

    Icon$=GetString$(l&,&loop-1)
    Folder$=DateiPfad(DateiPfad(Programm$)+Trim$(Mid$(Icon$,Len(DateiPfad(Programm$)+"\\Icons\\"),9999)))
    DesktopIni$ = Folder$ + "Desktop.ini"

    Ifnot DirExists(Folder$)

        MkDir Folder$

    EndIf

    If DirExists(Folder$)

        PathMakeSystemFolder(Folder$)

        If FileExists(DesktopIni$)

            Erase DesktopIni$

        EndIf

        WriteIni DesktopIni$,".ShellClassInfo","IconResource"=Icon$+", 0"
        WriteIni DesktopIni$,"ViewState","Mode"=""
        WriteIni DesktopIni$,"ViewState","Vid"=""
        WriteIni DesktopIni$,"ViewState","FolderType"="Generic"
        SetFAttr DesktopIni$, $06

    EndIf

Endwhile

Kompilieren Marque Séparation

exposition fois le APIs liefern chez mir 0, De toute façon den Returnwert de Apis tenir compte de.

MS écrit: Returns nonzero si successful, or zero otherwise.

Cordes sommes malheureusement aussi pas juste Cordes. Besonders Roland sa Cordes ou bien
plutôt par qui Art et Weise comment il vous verwaltet, sommes pas toujours pour Übergaben
à APIs brauchbar z.B. si le GC ( [...]

) trop tôt zuschlägt là pas selbst organisiert.

là aider nProc-Cordes ou bien plutôt qui APIs dans nProcs appeler, là nProcs une echte
eigene Stringverwaltung inne avons et nativ Cordes erzeugen entier reine et feine
comment M$ vous wünscht.

 {$cleq}
 {$compiler c:\dev\xprofan11\11}
 {$runtime c:\dev\xprofan11\11}
Def GetFileAttr(1) !"Kernel32", "GetFileAttributesA"
Def DateiName(1) SubStr$(@$(1),-1,"\\")
Def DateiEndung(1) SubStr$(@$(1),-1,".")
Def DateiPfad(1) Translate$(@$(1),("\\" + DateiName(@$(1))),"")+"\\"
Var Programm$=Par$((Upper$(DateiName(Par$(0)))="PROFAN.EXE") or (Upper$(DateiName(Par$(0)))="XPROFAN.EXE"))
Declare Folder$, Icon$, DesktopIni$
Var l&=Create("List", 0)
ClearList
ChDir DateiPfad(Programm$)
AddFiles *"*.ICO"
MoveListToHandle(l&)

whileloop 1, Getcount(l&)

    Icon$=GetString$(l&,&loop-1)
    Folder$=DateiPfad(DateiPfad(Programm$)+Trim$(Mid$(Icon$,Len(DateiPfad(Programm$)+"\\Icons\\"),9999)))
    DesktopIni$ = Folder$ + "Desktop.ini"

    Ifnot DirExists(Folder$)

        MkDir Folder$

    EndIf

    If DirExists(Folder$)

        print folder$
        print "A:";nSetFileAttr(Folder$, $4)

        If FileExists(DesktopIni$)

            Erase DesktopIni$

        EndIf

        assign #1,DesktopIni$
        rewrite #1
        /*
        WriteIni DesktopIni$,".ShellClassInfo","IconResource"=Icon$+", 0"
        WriteIni DesktopIni$,"ViewState","Mode"=""
        WriteIni DesktopIni$,"ViewState","Vid"=""
        WriteIni DesktopIni$,"ViewState","FolderType"="Generic"
        */
        print #1,"[.ShellClassInfo]"
        print #1,"IconFile=%SystemRoot%\\system32\\SHELL32.dll"
        print #1,"IconIndex=15"
        print #1,"[ViewState]"
        print #1,"FolderType=Generic"
        close #1
        nSetFileAttr(DesktopIni$, $06)
        nSetFileAttr(Folder$, $4)

    EndIf

EndWhile

waitinput

nProc nSetFileAttr(string s,long m){

    return SetFileAttributesA(s,

Julian
Schmidt

Cool, klappt.

bof zumindest si qui Dossier vide ist. si il pleine ist ca va pas. Ist cela de Microschrott pas vorgesehen ou bien bekommt on cela aussi encore irgendwie hin?

je sais es à vrai dire pas et fürchte, là hilft seulement essayer.

Julian
Schmidt

je denke cela allez pas. Wurde aussi ici geschrieben. [...]

Hat quelqu'un un bessere concept comme une Neuen Dossier trop erstellen là qui Desktop.ini abzulegen, Rechte trop mettons et anschließend alle Fichiers et Unterordner dans den neuen Dossier trop Déplacer.

oui, je! pas kopieren mais Déplacer!

Spätestens si sich une Dossier pas Déplacer peut ists mais aussi wieder
unlustig. Ergo ganze Desktop.ini-Gedöns seulement pour neue Dossier qui on z.B. selbst
erstellt.

oui, je! pas kopieren mais Déplacer!

Spätestens si sich une Dossier pas Déplacer peut ists mais aussi wieder
unlustig. Ergo ganze Desktop.ini-Gedöns seulement pour neue Dossier qui on z.B. selbst
erstellt.

aller devrait es mais toutefois toujours irgendwie car qui Explorer tät oui so!

Julian
Schmidt

iF (25.05.13)

aller devrait es mais toutefois toujours irgendwie car qui Explorer tät oui so!

Jup, seulement comment findet on raus comment qui Explorer cela fait?

[OFFTOPIC]Doppelpost ^ ^[/OFFTOPIC]