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

    Parámetros Path$
    Declarar Pos&,Size&
    Asignar #15,Path$
    Openrw #15
    Size&=GetFileSize(#15)
    Declarar 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&)
    Disponer Link#
    Volver Path$

ENDPROC

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