Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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