|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Thema | VB6: Browser auswahl |
Von |
UnReal |
E-Mail |
chambers1@gmx.net |
Datum |
01. Juli 2014 um 18:55:29 |
Frage |
Hallo Leute, ich hab in mein Programm die Auswahlmöglichkeit einiger installierter Browser eingebaut. aber diese auch den Labels zu geordnet nun hab ich festgestellt wenn zB. der Erste (Google Chrome) nicht installiert ist kommt logischerweise eine Fehlermeldung. Wie kann ich das am besten umgehen? Sub Browser() Dim strDateic As String Dim strPfadc As String Dim strDateie As String Dim strPfade As String Dim strDateif As String Dim strPfadf As String Dim strDatein As String Dim strPfadn As String Dim strDateio As String Dim strPfado As String strDateic = "Chrome.exe" strPfadc = "C:\Users\" & bn & "\AppData\Local\Google\Chrome\Application\" LblBrowser(0).Visible = fncIstDateiVorhanden(strDateic, strPfadc) If LblBrowser(0).Visible = True Then ListBrowser.List(0) = LblBrowser(0).Caption: LblBrowserInd.Caption = "0" strDateic = "Chrome.exe" strPfadc = "C:\Program Files\Google\Chrome\Application" LblBrowser(0).Visible = fncIstDateiVorhanden(strDateic, strPfadc) If LblBrowser(0).Visible = True Then ListBrowser.List(0) = LblBrowser(0).Caption: LblBrowserInd.Caption = "1" strDateie = "iexplore.exe" strPfade = "C:\Programme\Internet Explorer" LblBrowser(1).Visible = fncIstDateiVorhanden(strDateie, strPfade) If LblBrowser(1).Visible = True Then ListBrowser.List(1) = LblBrowser(1).Caption strDateif = "Firefox.exe" strPfadf = "C:\Programme\Mozilla Firefox" LblBrowser(2).Visible = fncIstDateiVorhanden(strDateif, strPfadf) If LblBrowser(2).Visible = True Then ListBrowser.List(2) = LblBrowser(2).Caption strDatein = "Netscp.exe" strPfadn = "C:\Programme\Netscape\Netscape" LblBrowser(3).Visible = fncIstDateiVorhanden(strDatein, strPfadn) If LblBrowser(3).Visible = True Then ListBrowser.List(3) = LblBrowser(3).Caption strDateio = "opera.exe" strPfado = "C:\Programme\Opera" LblBrowser(4).Visible = fncIstDateiVorhanden(strDateio, strPfado) If LblBrowser(4).Visible = True Then ListBrowser.List(4) = LblBrowser(4).Caption End Sub vielen dank schon mal |
|
Antwort: |
Von |
Rippler |
Datum |
03. Juli 2014 um 14:24:49 |
Antwort |
Const HKLM = &H80000002 Const S1 = "SOFTWARE\Clients\StartMenuInternet\" Const S2 = "\shell\Open\command" Dim U, Werte, Item Dim Pfad As String Set U = GetObject("winmgmts:{impersonationLevel=impersonate}!\root\default:StdRegProv") U.EnumKey HKLM, S1, Werte For Each Item In Werte U.GetStringValue HKLM, S1 & Item & S2, "", Pfad List1.AddItem Item List2.AddItem Pfad Next |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|