Может кто-нибудь объяснить, что это на самом деле делает? - PullRequest
Новая
       6

Может кто-нибудь объяснить, что это на самом деле делает?

0 голосов
/ 10 сентября 2018

Я искал способ закрыть Windows Explorer, используя VBA, и я нашел что-то, что работает. Однако я на самом деле понятия не имею, что он на самом деле делает, или что-либо из этого означает. Может кто-нибудь объяснить, что происходит ниже? 

Private Const CLOSE_WIN = &H10
Dim Hwnd As Long

Private Declare Function apiFindWindow _
    Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassname As String, _
    ByVal lpWindowName As String) _
    As Long

Private Declare Function apiPostMessage _
    Lib "user32" Alias "PostMessageA" _
    (ByVal Hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
    As Long

    Hwnd = apiFindWindow("CabinetWClass", vbNullString)

    Dim retval As Long
    If (Hwnd) Then
       retval = apiPostMessage(Hwnd, CLOSE_WIN, 0, ByVal 0&)
    End If

Спасибо

...