Pfad zum IE für andere Länder "verallgemeinern"?

[Dekunuss]

hi all. Also erstmal sehr schönes forum. ich werde hier wahrscheinlich in zukunft öfter hilfe brauchen

ich habe folgendes problem: ich habe einen button erstellt und wollte, dass dieser button beim klick einen link im internet explorer öffnet. der code sieht ja folgendermaßen aus:
On Error Resume Next
Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE www.google.com", vbMaximizedFocus)
AppActivate RetVal, True


jetzt aber meine frage:
wie kann ich denn diesen code umändern, dass der link sich auch im internet explorer öffnet, der aufgrund einer anderen sprache auch einen anderen pfad besitzt?


vielen dank,
dekunuss

 

[DrSoong]

Wenn der Explorer der Standardbrowser am System ist, kannst du ihn über die ShellExecute-API starten.

Wenn du bei einem anderen Standardbrowser als dem IE (wieso sollte man den IE überhaupt noch verwenden :suspekt dennoch den IE haben willst, müsstest du nach ihm suchen. Den Programmordner kannst du wie hier beschrieben auslesen, jetzt kannst du über gut Glück den IE-Ordner raten oder ihn suchen (Variante 1, Variante 2, Variante 3).


Der Doc!

 

[Dekunuss]

danke für die antwort.

wenn ich den link in dem jeweiligen standart-browser öffnen möchte, muss ich also den code (ShellExecute-API) benutzen... habe ich das soweit richtig verstanden?
denn genau das wäre dann die lösung (ebenfalls ein IE hasser )

 

[DrSoong]

Gang genau, dann ist die ShellExecute-API deine Wahl. Du brauchst dir dann keinen Kopf mehr über den Browser (Name, Pfad, …) zu machen, nimmt dir Windows alles ab.


Der Doc!

 

[Dekunuss]

ok, vielen dank!

[EDIT]
hmm... ein problem habe ich jetzt doch noch, bei mir hauts nicht hin:



Private Sub Command3_Click()
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.activevb.de", "", App.Path, 1)
End Sub



das is der code, so steht er da... was mache ich für einen fehler?

 

[DrSoong]

Schau dir das Beispiel nochmal an, dann wirst du sehen, dass API-Deklarationen immer vor allen Prozeduren durchgeführt werden. Dein Code müsste also so aussehen:

'Erst alle API-Deklarationen:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

'Dann die Prozeduren
Private Sub Command1_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.activevb.de", "", App.Path, 1)
End Sub

Der Doc!