s0Creator спасибо тебе огромное но проблема еще остаеться вот выложил скрины посмотрите так наверно попонятнее будет
Так сделал вот так - но ничего не получаеться оно вообше не хочет найти то что мне нужно
Код:
procedure TForm1.Button6Click(Sender: TObject);
var
x : hwnd;
begin
x:=FindWindow('WindowsForms10.SysListView32.app3', nil);
edit1.Text:=trim(copy(IntToStr(x), 0, 9));
EnableWindow(StrToInt(Edit1.Text), True);
end;
и так тоже попробывал тоже ничего не получаеться
Код:
procedure TForm1.Button6Click(Sender: TObject);
var
x, w : hwnd;
begin
x:=FindWindow('WindowsForms10.Window.8.app3', nil);
w:=FindWindowEx(x, 0, 'WindowsForms10.SysListView32.app3', nil) ;
edit1.Text:=trim(copy(IntToStr(w), 0, 9));
EnableWindow(StrToInt(Edit1.Text), True);
end;
Что делать?
