Würde mir freundlicherweise einer diesen code
erklären ???
weil ich nicht weis wie ich da son icon rein bekomme der code funktioniert is irgendwo hier ausem vb-paradise
erklären ???
weil ich nicht weis wie ich da son icon rein bekomme der code funktioniert is irgendwo hier ausem vb-paradise
VB.NET-Quellcode
- Public Function RegisterFile(ByVal sFileExt As String, _
- ByVal sFileDescr As String, ByVal sAppID As String, _
- ByVal sOpenCmd As String) As Boolean
- Try
- Dim regKey As RegistryKey = Registry.LocalMachine.CreateSubKey("Software\Classes\" & sFileExt)
- If regKey IsNot Nothing Then
- regKey.SetValue("", sAppID)
- regKey = Registry.LocalMachine.CreateSubKey("Software\Classes\" & sAppID)
- If regKey IsNot Nothing Then
- regKey.SetValue("", sFileDescr)
- regKey = regKey.CreateSubKey("Shell\Open\Command")
- If regKey IsNot Nothing Then
- regKey.SetValue("", sOpenCmd)
- Else
- Return False
- End If
- Else
- Return False
- End If
- Else
- Return False
- End If
- Return True
- Catch ex As Exception
- Return False
- End Try
- End Function