dotNETportal.cz

Dobrý den, ve své aplikaci potřebuji za běhu měnit hardwarovou akceleraci z maxima na minimum. Prozatím jsem to vyřešil tím, že spustím dialog Poradce při potížích a tam programově kliknu myší na ten slider a posunu ho. Existuje ve VB .net nějaké elegantnější řešení, případně ví někdo, kde jsou tato data uložena? Stačí nakopnout. Díky.

No pochybuju o tom, že pouhou změnou hodnoty v registru se docílí nějakého výsledku. Podle mě se musí nějak "upozornit" systém že byla provedená změna HW akcelerace, protože to je celkem klíčová věc pro systém.

Ne, vyzkoušeno, stačí pouze změnit hodnotu, slider se posune a akcelerace se změní.

Pro všechny, kteří to přepínání budou řešit ušetřím hledání na googlu, kde k tomuto moc informací není. Přiložený kód by měl fungovat na všech PC, vyzkoušeno ve Win XP.

 Public Sub Akcelerace(ByVal Stav As Boolean)

        Dim UmisteniKlice As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\VIDEO")
        Dim cesta As String = UmisteniKlice.GetValue("\Device\Video0")

        Dim Cesta1() As String = cesta.Split("\")
        Dim Delka As Integer = Cesta1.Length - 1
        Dim HotovaCesta As String = ""
        Dim level As String

        Select Case Stav
            Case True
                level = "0"
            Case False
                level = "5"
            Case Else
                level = "0"
        End Select


        For i As Integer = 0 To Delka
            Select Case i
                Case Delka - 1
                    HotovaCesta = (Cesta1(i))
                Case Delka
                    HotovaCesta = HotovaCesta & "\" & (Cesta1(i)) & "\"
            End Select
        Next

        Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Video\" & HotovaCesta, True).SetValue("Acceleration.Level", Level, Microsoft.Win32.RegistryValueKind.DWord)
        Microsoft.Win32.Registry.LocalMachine.Close()
    End Sub