Dateierweiterung für eigenes Programm registrieren

    • VB6

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Alex2000.

      Dateierweiterung für eigenes Programm registrieren

      Hai !!!
      Du Programmierst ein Editor und hast eigene Datei erweiterung, und wenn du auf die Datei klickst soll deine Anwendung gestartet werden, kein Problem, hier ist die Code

      Visual Basic-Quellcode

      1. Option Explicit
      3. ' zun?chst alle ben?tigten API-Deklarationen
      4. Private Const HKEY_LOCAL_MACHINE = &H80000002
      6. Private Const KEY_ALL_ACCESS = &H3F
      7. Private Const KEY_SET_VALUE = &H2
      8. Private Const KEY_CREATE_SUB_KEY = &H4
      10. Private Const REG_PRIMARY_KEY = "Software\Classes\"
      11. Private Const REG_SHELL_KEY = "Shell\"
      12. Private Const REG_SHELL_OPEN_KEY = "Open\"
      13. Private Const REG_SHELL_OPEN_COMMAND_KEY = "Command"
      15. Private Const REG_SZ = 1
      16. Private Const REG_OPTION_NON_VOLATILE = 0
      18. Private Const ERROR_SUCCESS = 0&
      20. Private Type SECURITY_ATTRIBUTES
      21. nLength As Long
      22. lpSecurityDescriptor As Long
      23. bInheritHandle As Boolean
      24. End Type
      26. Private Declare Function RegCloseKey Lib "advapi32.dll" _
      27. (ByVal hKey As Long) As Long
      28. Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
      29. Alias "RegOpenKeyExA" (ByVal hKey As Long, _
      30. ByVal lpSubKey As String, ByVal ulOptions As Long, _
      31. ByVal samDesired As Long, phkResult As Long) As Long
      32. Private Declare Function RegCreateKeyEx Lib "advapi32.dll" _
      33. Alias "RegCreateKeyExA" (ByVal hKey As Long, _
      34. ByVal lpSubKey As String, ByVal Reserved As Long, _
      35. ByVal lpClass As String, ByVal dwOptions As Long, _
      36. ByVal samDesired As Long, lpSecurityAttributes As _
      37. SECURITY_ATTRIBUTES, phkResult As Long, _
      38. lpdwDisposition As Long) As Long
      39. Private Declare Function RegSetValue Lib "advapi32.dll" _
      40. Alias "RegSetValueA" (ByVal hKey As Long, _
      41. ByVal lpSubKey As Any, ByVal dwType As Long, _
      42. ByVal lpData As String, ByVal cbData As Long) As Long
      44. Private Function OpenKey(lhKey As Long, SubKey As String, _
      45. ulOptions As Long) As Long
      47. Dim lhKeyOpen As Long
      48. Dim lResult As Long
      50. lhKeyOpen = 0
      51. lResult = RegOpenKeyEx(lhKey, SubKey, 0, ulOptions, _
      52. lhKeyOpen)
      53. If lResult <> ERROR_SUCCESS Then
      54. OpenKey = 0
      55. Else
      56. OpenKey = lhKeyOpen
      57. End If
      58. End Function
      60. Private Function CreateKey(lhKey As Long, SubKey As _
      61. String, NewSubKey As String) As Boolean
      63. Dim lhKeyOpen As Long
      64. Dim lhKeyNew As Long
      65. Dim lDisposition As Long
      66. Dim lResult As Long
      67. Dim Security As SECURITY_ATTRIBUTES
      69. lhKeyOpen = OpenKey(lhKey, SubKey, _
      70. KEY_CREATE_SUB_KEY)
      71. lResult = RegCreateKeyEx(lhKeyOpen, NewSubKey, 0, "", _
      72. REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, Security, _
      73. lhKeyNew, lDisposition)
      74. If lResult = ERROR_SUCCESS Then
      75. CreateKey = True
      76. RegCloseKey (lhKeyNew)
      77. Else
      78. CreateKey = False
      79. End If
      80. RegCloseKey (lhKeyOpen)
      81. End Function
      83. Private Function SetValue(lhKey As Long, SubKey As _
      84. String, sValue As String) As Boolean
      86. Dim lhKeyOpen As Long
      87. Dim lResult As Long
      88. Dim lTyp As Long
      89. Dim lByte As Long
      91. lByte = Len(sValue)
      92. lTyp = REG_SZ
      93. lhKeyOpen = OpenKey(lhKey, SubKey, KEY_SET_VALUE)
      94. lResult = RegSetValue(lhKey, SubKey, lTyp, sValue, _
      95. lByte)
      96. If lResult <> ERROR_SUCCESS Then
      97. SetValue = False
      98. Else
      99. SetValue = True
      100. RegCloseKey (lhKeyOpen)
      101. End If
      102. End Function
      104. ' Datei-Verkn?pfung in der Registry speichern
      105. ' Datei-Verkn?pfung in der Registry speichern
      106. ' sFileExt = Dateiendung (z.B. .txt)
      107. ' sFileDescr = Beschreibung (z.B. Textdokument)
      108. ' sAppID = Programm-Kennung (z.B. Mein Texteditor)
      109. ' sOpenCmd = vollst?ndiger Dateiname der Anwendung
      110. ' inkl. Parameter %1
      111. ' (z.B. App.Path & "\" & App.EXEName & ".exe %1"
      112. Public Function RegisterFile(sFileExt As String, _
      113. sFileDescr As String, sAppID As String, _
      114. sOpenCmd As String) As Boolean
      116. Dim hKey As Long
      117. Dim bSuccess As Boolean
      119. bSuccess = False
      120. hKey = HKEY_LOCAL_MACHINE
      122. ' File-Extension
      123. If CreateKey(hKey, REG_PRIMARY_KEY, sFileExt) Then
      124. If SetValue(hKey, REG_PRIMARY_KEY & sFileExt, _
      125. sAppID) Then
      126. ' AppID
      127. If CreateKey(hKey, REG_PRIMARY_KEY, sAppID) Then
      128. ' AppDescription
      129. If SetValue(hKey, REG_PRIMARY_KEY & sAppID, _
      130. sFileDescr) Then
      131. ' OpenCommand
      132. If CreateKey(hKey, REG_PRIMARY_KEY & sAppID, _
      133. REG_SHELL_KEY & REG_SHELL_OPEN_KEY & _
      134. REG_SHELL_OPEN_COMMAND_KEY) Then
      135. bSuccess = SetValue(hKey, REG_PRIMARY_KEY & _
      136. sAppID & "\" & REG_SHELL_KEY & _
      137. REG_SHELL_OPEN_KEY & _
      138. REG_SHELL_OPEN_COMMAND_KEY, sOpenCmd)
      139. End If
      140. End If
      141. End If
      142. End If
      143. End If
      145. RegisterFile = bSuccess
      146. End Function
      148. Beispiel
      150. ' .txt-Dateien registrieren
      151. RegisterFile ".txt", "Textdokument", "MeinTexteditor", _
      152. App.Path & "\" & App.EXEName & ".exe %1"





      Willst du für deine Eigene Datei erweiterung eigene Symbol, auch kein Problemm hier ist die Code

      Visual Basic-Quellcode

      1. Dim objSubKey As Microsoft.Win32.RegistryKey
      2. Dim objSubKey2 As Microsoft.Win32.RegistryKey
      3. Dim Wert As String = "Dein Name"
      4. Dim sKey As String = ".deine Endung"
      5. Dim sKey2 As String = ".deine Endung\ShellNew"
      6. Dim sEntry As String = "Content Type"
      7. Dim sValue As String = "text/plain"
      8. Dim sEntry2 As String = "PerceivedType"
      9. Dim sValue2 As String = "text"
      10. Dim sEntry3 As String = "Nullfile"
      11. objSubKey = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey)
      12. objSubKey.SetValue("", Wert)
      13. objSubKey.SetValue(sEntry, sValue)
      14. objSubKey.SetValue(sEntry2, sValue2)
      15. objSubKey2 = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey2)
      16. objSubKey2.SetValue(sEntry3, "")
      17. Dim objSubKey3 As Microsoft.Win32.RegistryKey
      18. Dim sKey3 As String = "Dein Name"
      19. Dim sKey4 As String = "Dein Name\shell\open\command"
      20. Dim skey5 As String = "Dein Name\DefaultIcon"
      21. Dim sValue3 As String = "Dein Name"
      22. Dim objSubKey5 As Microsoft.Win32.RegistryKey
      23. Dim sValue5 As String = """" + My.Application.Info.DirectoryPath + "" + ""der Pfad der exe mit dem es geöffnet werden soll"" + " %1"
      24. Dim sValue6 As String = """" + My.Application.Info.DirectoryPath + "pfad zum icon.ico" + """"
      25. Dim objSubKey4 As Microsoft.Win32.RegistryKey
      26. objSubKey3 = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey3)
      27. objSubKey3.SetValue("", sValue3)
      28. objSubKey4 = My.Computer.Registry.ClassesRoot.CreateSubKey(sKey4)
      29. objSubKey4.SetValue("", sValue5)
      30. objSubKey5 = My.Computer.Registry.ClassesRoot.CreateSubKey(skey5)
      31. objSubKey5.SetValue("", sValue6)



      Viel Spaß damit!! 8-) 8-) :thumbup:

      PS:BITTE KEINE ANTWORT !!!!

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

    Facebook
    Telefonspende