какой апи показать окно, которое не создано

за долгое время тусования на этом форуме, я приобрел телепатические качества )))

Опять таки зачем тут CreateWindowExA х.з

Всё, заканчиваем флуд.

Option Explicit

'********************************************************************
'*            Написано 16.03.2004 году (Team HomeWork)              *
'*                   e-mail: sne_pro@mail.ru                        *
'********************************************************************
'*                                                                  *
'*  Иногда случается так, что необходимо перехватыввать сообщения   *
'*     которые должны отправляться окну, а окна (формы) - нет.      *
'*        Так что мы делаем, правильно создаем свое окно          *
'*                                                                  *
'********************************************************************

Private Declare Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class As WNDCLASS) As Long
Private Declare Function UnregisterClass Lib "user32" Alias "UnregisterClassA" (ByVal lpClassName As String, ByVal hInstance As Long) As Long

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hWnd As Long) As Long

Private Declare Function DefWindowProc Lib "user32" Alias "efWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Type WNDCLASS
    Style           As Long
    lpfnWndProc     As Long
    cbClsExtra      As Long
    cbWndExtra2     As Long
    hInstance       As Long
    hicon           As Long
    hCursor         As Long
    hbrBackground   As Long
    lpszMenuName    As String
    lpszClassName   As String
End Type
Private Type gbHWWndReceiver
    sClassName      As String
    lngHandle       As Long
    lpCBFunction    As Long
End Type

Private WndR() As gbHWWndReceiver

Public Sub CreateWndReceiver(ByVal sClassName As String, ByVal lCodePtr As Long)
    Dim fi As Long                                          ' Проверка на существование посылки сообщений процедуре
    For fi = 0 To UBoundWndR
        If WndR(fi).lpCBFunction = lCodePtr Then Exit Sub
    Next
    
    Dim WndCls As WNDCLASS                                  ' Регистрация нового класса в системе
    With WndCls
        .lpfnWndProc = CodePtr(AddressOf WndReceiverProc)
        .hInstance = App.hInstance
        .lpszClassName = sClassName
    End With
    Call RegisterClass(WndCls)

    ReDim Preserve WndR(UBoundWndR + vbNull)                ' Создание окна
    With WndR(UBoundWndR)
        .lpCBFunction = lCodePtr
        .sClassName = sClassName

        .lngHandle = CreateWindowEx(0&, .sClassName, "WndResiver_" & sClassName & "_CopyRight (c) HomeWork", 0&, 0&, 0&, 0&, 0&, 0&, 0&, App.hInstance, ByVal 0&
    End With
End Sub

Public Sub DestroyWnd(ByVal lCodePtr As Long)
    Dim WndID As Long, fi As Long
        WndID = &HFFFF

    For fi = 0 To UBoundWndR                                        ' Находим нужный нам элемент
        If WndR(fi).lpCBFunction = lCodePtr Then WndID = fi: Exit For
    Next

    If WndID = &HFFFF Then Exit Sub

    Call DestroyWindow(WndR(WndID).lngHandle)                       ' Не заываем уничтожить окно
    Call UnregisterClass(WndR(WndID).sClassName, App.hInstance)

    fi = UBoundWndR                                                 ' Удаляем эллемент
    If Not fi = 0 And Not fi = &HFFFF Then
        If Not fi = WndID Then Call CopyMemory(WndR(WndID), WndR(WndID + vbNull), Len(WndR(WndID)) * (fi - WndID))
        ReDim Preserve WndR(fi - vbNull)
    Else
        Erase WndR
    End If
End Sub

Public Function GetHandle(ByVal lCodePtr As Long) As Long
    Dim WndID As Long, fi As Long
        WndID = &HFFFF

    For fi = 0 To UBoundWndR
        If WndR(fi).lpCBFunction = lCodePtr Then GetHandle = WndR(fi).lngHandle: Exit For
    Next
End Function

' §§§§§§§§§§§§§§§§§§§§§§§§§§  §§§§§§§§§§§§§§§§§§§§§§§§§§

Private Function WndReceiverProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim WndID As Long, fi As Long
        WndID = &HFFFF

    For fi = 0 To UBoundWndR
        If WndR(fi).lngHandle = hWnd Then WndID = fi
    Next

    If Not WndID = &HFFFF Then                              ' Отсылаем данные нужной нам процедуре
        Call CallWindowProc(WndR(WndID).lpCBFunction, hWnd, uMsg, wParam, lParam)
    End If

    WndReceiverProc = DefWindowProc(hWnd, uMsg, wParam, lParam)
End Function

' §§§§§§§§§§§§§§§§§§§§§§§§§§ Вспомогательное добро §§§§§§§§§§§§§§§§§§§§§§§§§§

Private Function CodePtr(ByVal lpfn As Long) As Long
    CodePtr = lpfn
End Function

Private Function UBoundWndR() As Long
    On Error Resume Next
    UBoundWndR = &HFFFF: UBoundWndR = UBound(WndR)
End Function

void CreateMainWindow()
{
WNDCLASSEX wcex;

wcex.cbSize = sizeof ( WNDCLASSEX );

wcex.style = 0;
wcex.lpfnWndProc = ( WNDPROC ) WndProc;
wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;
wcex.hInstance = hInstance;
wcex.hIcon = 0;
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName = 0;
wcex.lpszClassName = PROGRAM_NAME;
wcex.hIconSm = 0;

RegisterClassEx(&wcex);

    hWnd = CreateWindow(PROGRAM_NAME, szTitle, WS_OVERLAPPEDWINDOW,
      CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);
}

// Окошко, которое всегда в системе и получает все сообщения
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
switch (message)
{
case WM_USER+1:
DialogBox (hInst, (LPCSTR)IDD_SETTINGS, ::hWND,(DLGPROC) DLG_Settings);

default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
}