Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lparam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lparam As Long) As Boolean
Dim sSave As String, ret As Long
'frmWinList.List1.Clear
ret = GetWindowTextLength(hwnd)
sSave = Space(ret)
GetWindowText hwnd, sSave, ret + 1
'frmWinList.List1.AddItem Str$(hwnd) + " " + sSave
If sSave <> "" Then
frmWinList.List1.AddItem sSave
End If
'continue enumeration
EnumWindowsProc = True
End Function
Public Sub ShowPrograms(Finm As String)
Dim iSu As Long
frmWinList.AutoRedraw = True
frmWinList.List1.Clear
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
For iSu = 0 To frmWinList.List1.ListCount - 1
frmWinList.List1.ListIndex = iSu
Next
End Sub
Das mit dem Forms.Counter funktioniert deswegen nicht, weil beim Schliessen ja die DDL des Hauptprogramms geladen wird