Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Asche über mein Haupt
Autor: CYman21
Datum: 21.05.07 15:21
Habs hinbekommen.... Dim RegReader As RegistryKey Dim Regreader2 As RegistryKey RegReader = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, machine).OpenSubKey(("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")) Dim Werte() As String Dim Publisher, DisplayName As String Werte = RegReader.GetSubKeyNames() Dim k As Integer Bar1.Maximum += UBound(Werte) - 1 For k = LBound(Werte) To UBound(Werte) - 1 Bar1.Value += 1 Application.DoEvents() Regreader2 = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, machine).OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & Werte(k))

Asche über mein Haupt	724	CYman21	21.05.07 15:21
Re: Asche über mein Haupt	442	CYman21	21.05.07 15:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen