Dateityp für eigene Anwendung registrieren - icon kaputt ;)

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von KnifeHunter.

    Dateityp für eigene Anwendung registrieren - icon kaputt ;)

    So hallo an alle,

    nachdem ich leider lange nichtmehr da war, da bei mir irgendwie mein i-net nicht mitgemacht hat, habe ich mal wieder eine frage... mittlerweile bin ich schon recht gut was programmieren angeht. aber die MS Regisry habe ich bis heute leider nicht verstanden.
    ich habe mir den code aus folgendem Thread gezogen Thread.

    den code etc. habe ich soweit ja verstanden.
    naja... was die genauen einträge betrifft bin ich noch nicht ganz schlüssig.

    jedenfalls klappt das alles wunderbar, datei wird registriert und bei einem doppelklick wird selbige auch mit dem gewünschen programm gestartet.

    das einzige was mich stutzig macht, ist das jeglicher versuch der dateiendung ein Icon zu verpassen, kläglich gescheitert ist.


    ich hoffe, dass ihr mir da evtl weiterhelfen könnt.


    hier nochmal mein code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Function Registerfile(ByVal endung As String, ByVal namedesdateityps As String, ByVal pfadzuprogramm As String, ByVal pfadzuicon As String) As Boolean
    8. 'Try
    9. Dim objSubKey As Microsoft.Win32.RegistryKey
    10. Dim objSubKey2 As Microsoft.Win32.RegistryKey
    11. Dim Wert As String = namedesdateityps
    12. Dim sKey As String = endung
    13. Dim sKey2 As String = endung & "\ShellNew"
    14. Dim sEntry As String = "Content Type"
    15. Dim sValue As String = "text/plain"
    16. Dim sEntry2 As String = "PerceivedType"
    17. Dim sValue2 As String = "text"
    18. Dim sEntry3 As String = "Nullfile"
    19. objSubKey = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey)
    20. objSubKey.SetValue("", Wert)
    21. objSubKey.SetValue(sEntry, sValue)
    22. objSubKey.SetValue(sEntry2, sValue2)
    23. objSubKey2 = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey2)
    24. objSubKey2.SetValue(sEntry3, "")
    26. Dim objSubKey3 As Microsoft.Win32.RegistryKey
    27. Dim sKey3 As String = namedesdateityps
    28. Dim sKey4 As String = namedesdateityps & "\shell\open\command"
    29. Dim skey5 As String = namedesdateityps & "\DefaultIcon"
    30. Dim sValue3 As String = namedesdateityps
    31. Dim objSubKey5 As Microsoft.Win32.RegistryKey
    32. Dim sValue5 As String = """" + pfadzuprogramm + """" + " %1"
    33. Dim sValue6 As String = """" + pfadzuicon + """"
    34. Dim objSubKey4 As Microsoft.Win32.RegistryKey
    36. objSubKey3 = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey3)
    37. objSubKey3.SetValue("", sValue3)
    38. objSubKey4 = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey4)
    39. objSubKey4.SetValue("", sValue5)
    40. objSubKey5 = My.Computer.Registry.ClassesRoot.CreateSubKey(skey5)
    41. objSubKey5.SetValue("", sValue6)
    43. Return True
    44. 'Catch ex As Exception
    45. 'Return False
    46. 'End Try
    47. End Function
    49. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    50. If Registerfile(".test", "Test-File-Extension", Application.ExecutablePath, "C:\Users\EsTari\Documents\Visual Studio 2010\Projects\FILE REGISTRATION TEST\FILE REGISTRATION TEST\bin\Debug\Bio Hazard.ico") = True Then
    51. MessageBox.Show("Die Dateiendung *.test wurde erfolgreich registiert.", "Info")
    52. Else
    53. MessageBox.Show("Die Dateiendung konnte nicht registriert werden.")
    54. End If
    55. End Sub
    56. End Class


    8| ?(


    Danke schonmal an alle, die sich für mich den kopf zerbrechen ^^

    Warum ist denn Try auskommentiert ? Wurden etwa offensichtliche Fehler gemeldet ?

    Dann geb doch Adminrechte. Try Except ist zwar nicht gut aber in diesem Fall gut um den Fehler zu finden.

    ist doch erledigt... es geht jetzt nur noch um das icon!!!

    wie schon gesagt: der code läuft fehlerfrei. also muss ja irgendwas an den einträgen falsch sein.
    da ich mich damit leider nicht auskenne, wäre es nett, wenn jemand der ahnung hat, den code anschauen würde und mir evtl. sagen könnte, warum die datei zwar registriert wird aber eben ohne icon?!...



    EDIT: Hat sich erledigt... danke. das Icon war nach dem PC-neustart dann da. stand leider im anderen Thread nicht dabei, dass das Icon erst nach dem Computerneustart angezeigt wird.

    MfG KnifeHunter

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KnifeHunter“ ()

Facebook
Telefonspende