URLShortcut erstellen
Verfasst: 16.01.2005 20:29
In z.B. VBS gibt es eine Funktion, um Internetverknüpfungen zu erstellen. Interessant für Setup-Programme usw. Hab diese Funktion auf einfachste Weise in PB mal nachgebildet. Vielleicht kann's ja jemand gebrauchen.
Code: Alles auswählen
;##############################################################
; Einfache Procedure, um eine Internetverknüpfung zu erstellen
Procedure CreateURLShortcut(URLShortcut.s, Speicherort.s)
If UCase(GetExtensionPart(Speicherort)) <> "URL"
Speicherort + ".url"
EndIf
If CreatePreferences(Speicherort)
PreferenceGroup("InternetShortcut")
WritePreferenceString("URL", URLShortcut)
ClosePreferences()
ProcedureReturn #True
EndIf
ProcedureReturn #False
EndProcedure
;##############################################################
; Beispielcode erstellt eine Verknüpfung zu RobSite auf dem Desktop
Structure EMID
cb.b
abID.b[1]
EndStructure
Structure ITEMIDLIST
mkid.EMID
EndStructure
Procedure.s GetSpecialeFolder(folder.l)
*itemid.ITEMIDLIST = #Null
If SHGetSpecialFolderLocation_ (0, folder, @*itemid) = #NOERROR
location.s = Space (#MAX_PATH)
If SHGetPathFromIDList_ (*itemid, @location)
If Right(location, 1) <> "\" : location + "\" : EndIf
ProcedureReturn location
EndIf
EndIf
EndProcedure
Debug CreateURLShortcut("http://www.robsite.de/php/pureboard/", GetSpecialeFolder(0) + "PureBasic Forum deutsch.url")
