XProfan

Deutsch

Jörg
Sellmeyer

Hallo,
Ist das ein Bug oder ein Feature? Nach meinem Verständnis dürfte der Inhalt der Listboxliste nicht von der Funktion verändert werden:
Kompilieren Markieren Separieren

 $H Windows.ph
 $H shlwapi.ph
Def Desktop(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,DeskTop)
Cls
ChDir Desktop()
AddFiles **.lnk
ListBox$(,4)
Var DC& = ~GetDC(%hwnd)
Var p$ = ListboxItem$(0)
~PathCompactPath(DC&,Addr(p$),200)
Print p$
ListBox$(,4)

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

04.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Hier ist es eigentlich noch merkwürdiger, da p$ irgendwie zurechtgestutzt wird bevor die Länge komprimiert wird.
Kompilieren Markieren Separieren

 $H Windows.ph
 $H shlwapi.ph
Def Desktop(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,DeskTop)
Window 0,0 - 800,600
ChDir Desktop()
AddFiles **.lnk
Declare p$,DC&
p$ =
Print p$

While p$ >

    p$ = Listbox$(,2)
    print p$
    DC& = ~GetDC(%hwnd)
    ~PathCompactPath(DC&,Addr(p$),200)
    print p$
    ~ReleaseDC(%hwnd,DC&)

Wend

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

04.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ok, das Zweite habe ich raus:
Kompilieren Markieren Separieren

 $H Windows.ph
 $H shlwapi.ph
Def Desktop(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,DeskTop)
Window 0,0 - 800,600
ChDir Desktop()
AddFiles **.lnk
Declare p$,DC&
p$ =
Print p$

While p$ >

    Clear p$
    p$ = Listbox$(,2)
    print p$
    DC& = ~GetDC(%hwnd)
    ~PathCompactPath(DC&,Addr(p$),200 + Rnd(200))
    print SubStr$(p$,1,z)
    ~ReleaseDC(%hwnd,DC&)

Wend