| Вопрос: EnumWindows | Добавлено: 04.12.02 18:51 |
Автор вопроса:  CyRax  | Web-сайт: basicproduction.nm.ru | ICQ: 204447456 |
| Подскажите пример использования этой функции. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Zeus ICQ: 161801353 Вопросов: 63 Ответов: 220 |
Web-сайт: Профиль | | #1 | Добавлено: 04.12.02 21:18 |
|
'Добавь в код формы Private Sub Form_Load() 'www.apirussia.by.ru - никогда не слыхали? 'Set the form's graphics mode to persistent Me.AutoRedraw = True 'call the Enumwindows-function EnumWindows AddressOf EnumWindowsProc, ByVal 0& End Sub 'Add this code to a module 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 Ret = GetWindowTextLength(hwnd) sSave = Space(Ret) GetWindowText hwnd, sSave, Ret + 1 Form1.Print Str$(hwnd) + " " + sSave 'continue enumeration EnumWindowsProc = True End Function
|
||
Страница: 1 |