XProfan

English

Jörg
Sellmeyer

Hi,
is the one bow or one feature? After my understanding might the Content the Listboxliste not from the function changed go:
Compile Mark Separation

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

11/04/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

here's it really yet merkwürdiger, there p$ somehow zurechtgestutzt becomes before The length compressed becomes.
Compile Mark Separation

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

11/04/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

OK, the second have I out:
Compile Mark Separation

 $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