а если искать не по классу, а по названию окна или и по классу и по названию, т.е.
Код:
procedure TForm1.Button6Click(Sender: TObject);
var
x, w : hwnd;
begin
x:=FindWindow('WindowsForms10.Window.8.app3', 'Начать тест - Демонстрационный режим ');
w:=FindWindowEx(x, 0, 'WindowsForms10.SysListView32.app3', nil) ;
edit1.Text:=trim(copy(IntToStr(w), 0, 9));
EnableWindow(w, True);
end;
да и стоит посмотреть, что хотят функции поиска окон:
Код:
function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND; stdcall;
взято из Windows.pas
имхо: в edit лучше кидать после использования хендла найденного окна, а то мало ли "обтримится" не так и обратно из текста преобразуется не очень
должно помочь, по крайней мере думаю, что поможет