| |
|
|
Jörg Sellmeyer |
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
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 06.11.2011 ▲ |
|
|
|