XProfan

Français

Jörg
Sellmeyer

Salut,
Ist cela un Bug ou bien un Feature? Pour meinem Verständnis pourrait qui le contenu qui Listboxliste pas de qui Funktion modifié volonté:
Kompilieren Marque Séparation

 $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$(,4span>

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

04.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ici ist es eigentlich encore merkwürdiger, là p$ irgendwie zurechtgestutzt wird bevor qui Longueur komprimiert wird.
Kompilieren Marque Séparation

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

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Ok, cela Zweite habe je raus:
Kompilieren Marque Séparation

 $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