Feedback

Audio und Video Codecs auflisten

VB - Tim Hartwig Februar 3, 2007
1 Ratings 2/5

Sprache: VB

Diese Funktion gibt eine Liste aller installierten Audio und Video Codecs zurück.
''' <summary>
''' Diese Funktion gibt eine Liste aller installierten Audio und Video Codecs zurück.
''' </summary>
Public Function EnumCodecs() As List(Of String)
    Dim CodecList As New List(Of String)
    Dim CodecName As String
    Dim Entries() As String = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
    "SOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc").GetValueNames()
    For i As Integer = 0 To Entries.Length - 1
        CodecName = Microsoft.Win32.Registry.GetValue( _
        "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc", _
        Entries(i), "")
        CodecList.Add(CodecName)
    Next
    Return CodecList
End Function
''' <summary>
''' Diese Funktion gibt eine Liste aller installierten Audio und Video Codecs zurück.
''' </summary>
Public Function EnumCodecs() As List(Of String)
    Dim CodecList As New List(Of String)
    Dim CodecName As String
    Dim Entries() As String = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
    "SOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc").GetValueNames()
    For i As Integer = 0 To Entries.Length - 1
        CodecName = Microsoft.Win32.Registry.GetValue( _
        "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc", _
        Entries(i), "")
        CodecList.Add(CodecName)
    Next
    Return CodecList
End Function
Abgelegt unter Audio Codec Registry Video

Alte URL: /snippet/audio-und-video-codecs-auflisten/456

1 Kommentar

  1. Es fehlt eine schließende Klammer bei …
    [code]Microsoft.Win32.Registry.GetValue( _
    „HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc“, _
    Entries(i), „“)[/code]
    Ich habe sie mal gleich weg gelassen und das [b]Cstr[/b] durch die Überladung [b]ToString[/b] ersätzt.
    Die „billig konvertierung“ über [b]Cstr[/b], oder Äquivalente, sollte vermieden werden, dafür sind ja die entsprechenden Überladungen da, oder man nutzt die [b]Convert[/b] Classe.

    [code]“‘

    “‘ Diese Funktion gibt eine Liste aller installierten Audio und Video Codecs zurück.
    “‘

    Public Function EnumCodecs() As List(Of String)
    Dim CodecList As New List(Of String)
    Dim CodecName As String
    Dim Entries() As String = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
    „SOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc“).GetValueNames()
    For i As Integer = 0 To Entries.Length – 1
    CodecName = Microsoft.Win32.Registry.GetValue( _
    „HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersiondrivers.desc“, _
    Entries(i), „“).ToString
    CodecList.Add(CodecName)
    Next
    Return CodecList
    End Function[/code]