hWnd Окна

[Akella]

Как определить hWnd и адресс ОТКРЫТОЙ ПАПКИ (Окна) на рабочем столе (не пренадлежащего VB)

[A.A.Z.]

FindWindow("CabinetWClass", "C:\")

[tyomitch]

Ух ты, а ведь и вправду CabinetWClass... Чудеса
Если кто не знает, в бета-версиях Chicago файловый менеджер назывался не Explorer, а File Cabinet, и запускался файлом cab32.exe

[Akella]

Я чегото пе врубился как FindWindow("CabinetWClass", "C:\") определит hWnd и адресс ОТКРЫТОЙ ПАПКИ на рабочем столе.
Мне надо чтобы при нажатии PrintScreen делалось изображение активного окна(Проги) и это изображение сохранялось по адресу этого окна(проги).

[alibek]

А ты не врубайся, ты попробуй.

[Akella]

Делаю Caption = GetWindowDC(FindWindow("CabinetWClass", "C:\")), и что дальше

[Ramzes]

А дальше API GUIDE

[Ramzes]

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "OpusApp"
Const gcClassnameMSExcel = "XLMAIN"
Const gcClassnameMSIExplorer = "IEFrame"
Const gcClassnameMSVBasic = "wndclass_desked_gsk"
Const gcClassnameNotePad = "Notepad"
Const gcClassnameMyVBApp = "ThunderForm"
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
    'Ask for a Window title
    Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
    'Search the window
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
    'Show the window
    ShowWindow WinWnd, SW_SHOWNORMAL
    'Create a buffer
    lpClassName = Space(256)
    'retrieve the class name
    RetVal = GetClassName(WinWnd, lpClassName, 256)
    'Show the classname
    MsgBox "Classname: " + Left$(lpClassName, RetVal)
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub


[Akella]

я так понял что Ramzes'овский код для закрывания окон, а как найти размеры окошка.

[tyomitch]

я так понял что Ramzes'овский код для закрывания окон, а как найти размеры окошка.

http://bbs.vbstreets.ru/viewtopic.php?t=12840


И уж GetWindowDC-то здесь совершенно не при чём.

[Akella]

я непонимаю как пользоваться этим CabinetWClass.
Покажите плз.

[GM]

Узнать Caption можна так:

Код: Выделить всё

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Function GetWinText(hwnd as long) as string
Dim MyStr As String
    'Create a buffer
    MyStr = String(100, Chr$(0))
    'Get the windowtext
    GetWindowText Me.hwnd, MyStr, 100
    'strip the rest of buffer
    getwintext = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
end function


[Max!]

CabinetWClass то класс твоего окна , далее используя FindWindow("CabinetWClass", vbnullstring) , ты узнаешь hwnd окна ! Например что делать если прога не имеет заголовка , а нам надо hwnd её получить , естественно будем искать по классу !