Hallo: mein zweites Problem: ich muss aus einer Anwendung heraus zwei Browser-Fenster öffnen, welche dann eine bestimmte Seite anzeigen. Die Fenster müssen parallel aufgehen. Eine Internet-Verbindung besteht aber auf jeden Fall schon, darum muss ich mich nicht kümmern.
Danke, Jens
shellexecute(handle, PChar('open'), Pchar('http://www.wer-weiss-was.de'), nil, nil, sw_normal);
Grüsse
Wolfgang
Ich benutze unter VB immer die API-Funktion "FindExecutable".
Diese gibt die registrierte Anwendung für ein bestimmtes Dokument zurück. (Man brauch dann eben eine "dummy"-Html-File)
Auf diese Art kann man leicht den Browser rausfinden (am namen der .exe) und evtl. angepasste Seiten öffnen.
cu, holli
code in vb:
Public Function HilfeStarten() Dim dok As String, exe As String, path As String, i As Long On Error GoTo fehler exe = Space(254) & Chr(0) 'Erwartet Null-terminierten C-Style-String dok = "hindex.html" 'dummyhtml-datei path = App.path & "\help" 'pfad zur dummyhtml-datei i = FindExecutable(dok, path, exe) If i <> 42 Or left(exe, 1) = Chr(0) Then 'Keine passende Anwendung MsgBox LoadResString(111 + frmStart.LanguageBase), vbCritical 'Fehlermeldung Else Shell left(exe, InStr(exe, Chr(0)) - 1) & " " & path & "\" & dok 'Browser mit Url als Parameter aufrufen End If Exit Function fehler: If Err.number = 53 Then MsgBox "Die Datei " & left(exe, InStr(exe, Chr(0)) - 1) & cr & "die zum öffnen der Hilfe erforderlich ist wurde nicht gefunden!", vbCritical Else Call ExtErrMsg(Err.number, Err.Description, "", "functions/Hilfestarten", "BLM") End If End Function