XProfan

Español

Jörg
Sellmeyer

¡Hola,
Ist el una Bug oder una Feature? Nach mi Verständnis dürfte el Inhalt el Listboxliste no de el Función verändert voluntad:
Kompilieren Marca Separación

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

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hier es eigentlich todavía merkwürdiger, como p$ irgendwie zurechtgestutzt se bevor el Longitud komprimiert se.
Kompilieren Marca Separación

 $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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Ok, el Zweite Yo fuera:
Kompilieren Marca Separación

 $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