XProfan

English

Jörg
Sellmeyer

of Jörg Sellmeyer to disengaged Disposal
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")

Proc ReadLinkPath

    Parameters File$
    Declare Pos&,Size&,hFile&
    Declare Link#
    hFile& = Assign(File$)
    Openrw hFile&
    Size&=GetFileSize(hFile&)
    Dim Link#,Size&
    BlockRead(hFile&,Link#,0,Size&)
    Close hFile&
    Assign hFile&,""
    Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
    File$=String $(Link#,Pos&)
    Dispose Link#
    Return File$

ENDPROC

ChDir Desktop()
Var lnk$ = Desktop() + "\" + FindFirst$("*.lnk")
Print lnk$
Print ReadLinkPath(lnk$)
WaitInput

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

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

for Frank what?

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

If it helps. then having More Time for XIDE

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

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Bräuchte the in Assembler...

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Wennde the have, kannste the too time poses

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

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

if i remember rightly, there too a Solution without Registry. thereafter watts I tonight first search. Dateizugriffe make everything immediate slow.

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

here becomes now really no performance demanded... seldom moving someone 50.000 LNK-Files a Listbox - in the hope, that these operation only a second last becomes.

I can but present the Jörgs code usually functions - vlt. another small Sicherheitsprüfung install.

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

The chance isn't high, but exists!

Have in the others Thread yet larger ones detriments aufgelistet: [...]

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank Abbing

The chance isn't high, but exists!

Have in the others Thread yet larger ones detriments aufgelistet.

with such testify on the best still The Thread-ID or URL indicate there later once nobody More know can whom Thread You meant having could and the Hineinkopieren the URL seldom vastly hoisted means.

(ultimately konvertiert the community URLs automatically in left, too without the one with ifbbs or htmls umsich throwing must.)

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Yes, i was not yet so far. You must too always badger...

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

there help presumably too no (ca.) 8.500KM distance.

08/20/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

it could Yes time any, The over this Thread stumbling, short testing and the Result communicating.

Compile Mark Separation

D:DatenProfanVerknüpfungen
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")
Def StartMenueProgramme(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Programs")

Proc ReadLinkPath

    Parameters File$
    Declare Pos&,Size&,hFile&
    Declare Link#
    hFile& = Assign(File$)
    Openrw hFile&
    Size&=GetFileSize(hFile&)
    Dim Link#,Size&
    BlockRead(hFile&,Link#,0,Size&)
    Close hFile&
    Assign hFile&,""
    Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
    File$=String $(Link#,Pos&)
    Dispose Link#
    Return File$

ENDPROC

Declare lnk$
ChDir StartMenueProgramme()
AddFiles *"*.lnk"
Window 0,0 - %maxx,%maxy

WhileLoop %getcount

    lnk$ = ReadLinkPath(ListBoxItem$(&Loop))
    FindFirst$(lnk$)
    Print lnk$,%ioresult

Wend

WaitInput