Где Windows запоминает последнее активное окно AutoCAD?

> brigval
Уважаемый brigval! Спасибо за ответ!
Мне надо чтобы компьютер сам определял какое окно было активным, ставил для этого окна необходимые библиотеки и обращался затем без ошибок к программе этого окна. В каком месте надо указать моей программе прочитать версию программы последнего активного окна AutoCAD, чтобы она поставила правильные библиотеки в References для безопасной работы макросов?

> Миша
Вам необходимо считывать значение Z Order окна либо устанавливать это значение самому. Z order это если образно сказать, это координата окна в системе Z. Можно это реализовать через SetWindowPos

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, _
      ByVal hWndInsertAfter As Long, _
      ByVal x As Long, _
      ByVal y As Long, _
      ByVal cx As Long, _
      ByVal cy As Long, _
      ByVal wFlags As Long) As Long

> SmeL
Спасибо большое Smel! Обязательно попробую разобраться!

не правы.
Z order значение переменное если вы активировали окно автокада, то его Z order на данный момент максимальное, пока не появилось окно выше него. про hWndInsertAfter я пологаю, что правильно выразился. для того чтоб найти hWnd Вам понадобится FindWindow * если известен Caption окна заранее, что мало вероятно. Тогда вам нужно узнать весь список окон при помощи EnumWindows ** и в нем выбрать интересующее.

//*
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long
//**
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, _
      ByVal lParam As Long) As Long

Этот код подобен варианту AppActivate с одним плюсом и минусом ;)
+ в том, что активное окно не меняется
- что нужно больше писать :)

> SmeL
EnumWindows очень интересная функция, я даже нашёл для неё пример:

'Add this code to a form
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    '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

Но теперь передо мной стоит задача: получить GUID самого верхнего окна AutoCAD, по этому GUID найти в реестре название приложения и определить LIBID этого приложения и подсоединить соответствующую библиотеку к моей программе в Excel. Самое трудное из всего этого определить GUID из ответных параметров функции EnumWindows, если эта информация есть в ответных параметрах функции. Если GUID нет в ответных параметрах функции EnumWindows, то надо как-то используя ответные параметры функции EnumWindows выйти на GUID, помогите пожалуйста мне это сделать!
Жду ответа!

> SmeL
GUID это Глобальный Универсальный ID (идентификатор) приложения
LIBID это ID библиотеки, которую использует приложение
Выглядят эти ID следующим образом: "{851A4561-F4EC-4631-9B0C-E7DC407512C9}" (это LIBID).
Зная GUID приложения в реестре можно найти название этого приложения и LIBID, название библиотеки которую использует это приложение и название (полный путь) файла этой библиотеки, а зная название файла библиотеки, можно подключить эту библиотеку програмным способом в VBA.
Поэтому мне надо научиться получать GUID верхнего окна AutoCAD из ответных даных функции EnumWindows!
Посмотрите для дополнительной информации следующие страницы:
https://www.caduser.ru/forum/topic31130.html
https://www.caduser.ru/forum/topic30943.html
https://www.caduser.ru/forum/topic30948.html