Feedback

VB - Audio und Video Codecs auflisten

Veröffentlicht von am 03.02.2007
(1 Bewertungen)
Diese Funktion gibt eine Liste aller installierten Audio und Video Codecs zurück.
GFU-Schulungen  [Anzeige]

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

''' <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( _
    "SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc").GetValueNames()
    For i As Integer = 0 To Entries.Length - 1
        CodecName = Microsoft.Win32.Registry.GetValue( _
        "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc", _
        Entries(i), "")
        CodecList.Add(CodecName)
    Next
    Return CodecList
End Function
Abgelegt unter Codec, Registry, Audio, Video.

1 Kommentare zum Snippet

timonator schrieb am 14.02.2016:
Es fehlt eine schließende Klammer bei ...
Microsoft.Win32.Registry.GetValue( _
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc", _
Entries(i), "")

Ich habe sie mal gleich weg gelassen und das Cstr durch die Überladung ToString ersätzt.
Die "billig konvertierung" über Cstr, oder Äquivalente, sollte vermieden werden, dafür sind ja die entsprechenden Überladungen da, oder man nutzt die Convert Classe.

''' <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( _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc").GetValueNames()
For i As Integer = 0 To Entries.Length - 1
CodecName = Microsoft.Win32.Registry.GetValue( _
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc", _
Entries(i), "").ToString
CodecList.Add(CodecName)
Next
Return CodecList
End Function
 

Logge dich ein, um hier zu kommentieren!