Zitat:
Also du weißt die Dateiendung programmatisch zu?
Ja.
Code:
Case "MP3"
MediaFunc1.CreateFileAssociation FullAppExename, "MediaPlaylist.MP3", "MP3 sound", "MP3", 4, adPlay, adOpen, , adPlay, , adAdd
MediaFunc1.FileExtToRegistry ".mp3", "ProgId", "MediaPlaylist.MP3"
Public Sub SaveFileExtToRegistry(sSection As String, _
sKey As String, _
sValue As String)
Dim hKey As Long
Dim Result As Long
ClassKey = HKEY_CURRENT_USER
SectionKey = "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & sSection & "\OpenWithProgIDs"
ValueType = ERegistryValueTypes.REG_NONE
value = sValue
If sKey <> "" Then
ClassKey = HKEY_CURRENT_USER
SectionKey = "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & sSection & "\UserChoice"
Result = RegOpenKeyEx(ClassKey, SectionKey, 0, KEY_READ, hKey)
If Result = ERROR_SUCCESS Then
RegDeleteKey ClassKey, SectionKey
Call RegCloseKey(hKey)
End If
ValueType = ERegistryValueTypes.REG_SZ
ValueKey = sKey
value = sValue
End If
End Sub
Da gibt es auch keine Probleme habe volle Zugriffsrechte auf HKEY_CURRENT_USER
Ich verwende die 1803 habe gelesen das es hier Probleme mit den Dateizuwendungen geben soll das Windows die schlichtweg vergisst.
Auf 1809 kann man sich gar nicht verlassen wenn ich schon lese das hier Daten bzw. der gesamte Inhalt von Dokumenten Ordner gelöscht wird\wurde.
Zitat:
du könntest aber mal testen, ob die Zuordnung auch bei manueller Einstellung nach einiger Zeit wieder verloren geht.
Die gehen verloren und wenn ich dann unter Apps schaue ist der Mediaplayer (Standard - Anwendung) verschwunden.
gruss