Как получить HWND AutoCAD в Delphi?

Например, так:

function GetAcadHWND: HWND;
  function EnumCBFun(h: HWND; parm: integer): BOOL; cdecl;
    var wt: array[0..511] of char;
  begin
    ZeroMemory(@wt, sizeof(wt));
    Result:=not (GetWindowText(h, @wt[0], ((sizeof(wt)-1) div (sizeof(char))))<>0);
    if not Result
      then Result:=not(AnsiCompareStr(wt, acCAPT)=0);
    if Result
      then acHWND:=0
      else acHWND:=h;
  end;
begin
  acCAPT:=acadApp.Caption;
  EnumWindows(@EnumCBFun, 0);
  Result:=acHWND;
end;

Это кусочек, вырванный из контекста очень старого приложения (когда надо было искать окно Автокада по заголовку). Здесь используются глобальные acCAPT, acadApp - так надо было.
Главное - GetWindowText.

Разобрался с типами

> Alexander Larionov
>На acCAPT:=acadApp.Caption;
>выдает ошибку
Ну, это же просто строка. У нас она была вообще не "AutoCAD". В том и ненадежность поиска HWND через заголовки, потому что они меняются. Понаблюдайте, как меняется при открытом файле, при развернутых и свернутых строках.
Лучше искать AutoCAD как COM-сервер, брать объект Application, у него есть свойство HWND.

> Alexander Larionov
Когда AutoCAD "занят" от него получить ничего невозможно.
Вариант получения hwnd AutoCAD - использовать ARX.