Um eine Dateiendung zu registrieren habe ich folgenden Code gefunden:
Nur wenn ich eine Endung registrieren will bekomme ich bei dieser Zeile...
...den Fehler: "Der Zugriff wurde verweigert"
Geht das nicht ohne Admin-Rechte?
Wenn nicht, kann man das dann irgendwie mit InnoScript machen, wenn ja wie?
MFG
PhoenixBlaster
VB.NET-Quellcode
- Private Function Registerfile(ByVal Dateiendung As String, ByVal Name As String, ByVal Pfad As String, ByVal Iconpfad As String, ByVal Add_to_ShellNew As Boolean) As Boolean
- Dim objSubKey As Microsoft.Win32.RegistryKey
- Dim objSubKey2 As Microsoft.Win32.RegistryKey
- Dim objSubKey3 As Microsoft.Win32.RegistryKey
- Dim objSubKey5 As Microsoft.Win32.RegistryKey
- Dim objSubKey4 As Microsoft.Win32.RegistryKey
- objSubKey = My.Computer.Registry.ClassesRoot.CreateSubKey(Dateiendung)
- objSubKey.SetValue("", Name)
- If Add_to_ShellNew = True Then
- objSubKey2 = My.Computer.Registry.ClassesRoot.CreateSubKey(Dateiendung & "\ShellNew")
- objSubKey2.SetValue("Nullfile", "")
- End If
- objSubKey3 = My.Computer.Registry.ClassesRoot.CreateSubKey(Name)
- objSubKey3.SetValue("", Name)
- objSubKey4 = My.Computer.Registry.ClassesRoot.CreateSubKey(Name & "\shell\open\command")
- objSubKey4.SetValue("", """" + Pfad + """" + " %1")
- objSubKey5 = My.Computer.Registry.ClassesRoot.CreateSubKey(Name & "\DefaultIcon")
- objSubKey5.SetValue("", """" + Iconpfad + """")
- MessageBox.Show("Die Dateiendung " & Dateiendung & " wurde erfolgreich registiert.", "Info")
- End Function
Nur wenn ich eine Endung registrieren will bekomme ich bei dieser Zeile...
...den Fehler: "Der Zugriff wurde verweigert"
Geht das nicht ohne Admin-Rechte?
Wenn nicht, kann man das dann irgendwie mit InnoScript machen, wenn ja wie?
MFG
PhoenixBlaster