XProfan

von Jörg Sellmeyer zur freien Verfügung
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

--XProfan 10 + Windows XP SP2
 $H Windows.ph
 $H ocx2.ph
 $I ocx2.inc
var Lnk$="C:1TestInternet Explorer.lnk"
var Lnk$="C:Dokumente und EinstellungenAll UsersStartmenüProgrammeubehörProgrammkompatibilitäts-Assistent.lnk"
ocxInit()
var Shell&=ocxCreate("WScript.Shell")
var Link&=ocxMethod(Shell&,"CreateShortcut","*"+Lnk$)
--CreateShortcut öffnet auch bereits existierende Verknüpfungen
print "Arguments       :",ocxGet(Link&,"Arguments")
print "Description     :",ocxGet(Link&,"Description")
print "FullName        :",ocxGet(Link&,"FullName")
print "Hotkey          :",ocxGet(Link&,"Hotkey")
print "IconLocation    :",ocxGet(Link&,"IconLocation")
print "TargetPath      :",ocxGet(Link&,"TargetPath")
print "WindowStyle     :",ocxGet(Link&,"WindowStyle")
print "WorkingDirectory:",ocxGet(Link&,"WorkingDirectory")
ocxRelease(Link&,Shell&)
ocxDeInit()
waitinput