XProfan

Def Desktop(0) ReadIni$("Hkey_1","Software\Microsoft\windows\CurrentVersion\Explorer\Shell Folders","Desktop")
Def StartMenueProgramme(0) ReadIni$("Hkey_1","Software\Microsoft\windows\CurrentVersion\Explorer\Shell Folders","Programs")

Proc ReadLinkPath

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

ENDPROC

ChDir Desktop()
Var LinkFile$ = Desktop() + "\\" + Findfirst$("*.lnk")
Print LinkFile$
Print ReadLinkPath(LinkFile$)
LinkFile$ = StartMenueProgramme() + "\\Zubehör\\Unterhaltungsmedien\\windows Media Player.lnk"
Print LinkFile$
Print ReadLinkPath(LinkFile$)
WaitInput