Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
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.
;##############################################################
; 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")
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
