Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Function getAllPrograms() As List(Of String)
Dim lijst As List(Of String) = New List(Of String)
Dim software_key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each key As String In software_key.GetSubKeyNames()
Dim current_key As Microsoft.Win32.RegistryKey = software_key.OpenSubKey(key)
Try
If (Not current_key.GetValue("DisplayName").ToString().Trim() = "") Then
lijst.Add(current_key.GetValue("DisplayName") + " " + current_key.GetValue("DisplayVersion"))
End If
Catch ex As Exception
End Try
Next
Return lijst
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.