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

    Paramètres Path$
    Déclarer Pos&,Size&
    Assign #15,Path$
    Openrw #15
    Size&=GetFileSize(#15)
    Déclarer Link#
    Faible 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#
    Retour Path$

ENDPROC

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