FindWindowEx ищет только по классу и находит только одно окно. Делаю так
function enumproc(wnd:hwnd; lparam:lparam):BOOL; stdcall;Но вылетает с ошибкой. Что не так?
var
s:pchar;
begin
GetClassName(wnd,s,20);
form3.Memo1.Lines.Add(s)
end;
procedure TForm3.Button1Click(Sender: TObject);
var
wnd,wnd1,wnd2:hwnd;
begin
memo1.Clear;
EnumChildWindows(FindWindow(nil,'Form1'),@enumproc,0) //это форма другого приложения с кнопкой и мемо
end;