XProfan

- Page 2 -

Julian
Schmidt

OK, the shining To functions.

though shining windows nevertheless my Desktop.ini not anzunehmen.

look time. [...]

come there with you The Ordner-Icons to the Perform.

test.rar	814 kB

Hochgeladen:	05/25/13

Downloadcounter:
		Download

correctly., updated too by me (XP) not.

have time RegDump made to and to Änderung -

shining in the Reg itself therefore nothing To Change.

but look time here standing what: [...]

[...]

Julian
Schmidt

Klappt immernoch not correctly..
Compile Mark Separation

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

look times the APIs supplying by me 0, too always whom Returnwert of Apis mind.

MS writes: Returns nonzero if successful, or zero otherwise.

Strings are unfortunately neither same Strings. particularly Roland its Strings or
sooner by the Nature and point How it tappt im dunkeln manages, are not always for Übergaben
on APIs useable z.B. if The GC ( [...]

) a blank zuschlägt there not self organisiert.

there help nProc-Strings or sooner The APIs in nProcs call, there nProcs a real
Own Stringverwaltung inne and have nativ Strings produce integrally pure and swell
How M$ tappt im dunkeln wish.

Compile Mark Separation

 {$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

calm, works.

Well at least if the Ordner empty. If it filled is goes not. is the of Microschrott not vorgesehen or get to the too yet somehow there?

i know it sincere said not and fürchte, there helps only try.

Julian
Schmidt

i think the is not. watts here written. [...]

has someone one better idea as a new Ordner to create there The Desktop.ini to take off, rights To settle and subsequently any Files and Unterordner into new Ordner To move.

Yes, I! not copy separate move!

At the latest if itself a File not move can ists but again
unlustig. Ergo whole Desktop.ini-Gedöns only for new Ordner everybody can z.B. self
prepares.

Yes, I! not copy separate move!

At the latest if itself a File not move can ists but again
unlustig. Ergo whole Desktop.ini-Gedöns only for new Ordner everybody can z.B. self
prepares.

weg should But nevertheless always somehow because the Explorer tät Yes so!

Julian
Schmidt

iF (25.05.13)

weg should But nevertheless always somehow because the Explorer tät Yes so!

Jup, only How finds one out How the Explorer the power?

[OFFTOPIC]Doppelpost ^^[/OFFTOPIC]