Findwindow

devious

Дата: 25.06.2019 16:40:50

Не соображу
Задача найти handl всех окон по имени класса
Написал

h := findwindow(pchar(param1), pchar(param11));

Суть проблемы в том что окон с такими классами и именами несколько, а процедура возвращает только первого найденого:( а надо вывести handle всех окон

white_nigger

Дата: 25.06.2019 16:43:32

devious
Не соображу Задача найти handl всех окон по имени класса Написал h := findwindow(pchar(param1), pchar(param11)); Суть проблемы в том что окон с такими классами и именами несколько, а процедура возвращает только первого найденого:( а надо вывести handle всех окон

devious

Не соображу
Задача найти handl всех окон по имени класса
Написал

h := findwindow(pchar(param1), pchar(param11));

RTFM EnumWindows

devious

Дата: 25.06.2019 19:32:02

white_nigger

devious

Не соображу
Задача найти handl всех окон по имени класса
Написал

h := findwindow(pchar(param1), pchar(param11));

RTFM EnumWindows

Что то не догоняю, как правильно реализовать

white_nigger

Дата: 26.06.2019 00:20:11

devious
Что то не догоняю, как правильно реализовать

Как пробовал? Что не получилось?

devious

Дата: 26.06.2019 08:32:50

white_nigger

devious
Что то не догоняю, как правильно реализовать

Как пробовал? Что не получилось?

Мне в итоге надо найти объект на форме
У него есть имя класса и заголовок
Вот написал

function EnumWindowsProc(wHandle: HWND; lb: TListBox): BOOL; stdcall;
var
  Title, ClassName: array[0..255] of char;
begin
  GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if IsWindowVisible(wHandle) then
    lb.Items.Add(string(Title) + '-' + string(ClassName));
  Result := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ListBox1.Items.Clear;
  EnumWindows(@EnumWindowsProc, LPARAM(ListBox1));
end;

Нахожу имена окон, а мне надо дальше в окнах найти нужный объект

Мимопроходящий

Дата: 26.06.2019 11:20:48

26.06.2019 8:32, devious пишет:
> Нахожу имена окон, а мне надо дальше в окнах найти нужный объект

имхо, тут программист нужен. (С)

Posted via ActualForum NNTP Server 1.5

Dimitry Sibiryakov

Дата: 26.06.2019 11:51:46

devious
Мне в итоге надо найти объект на форме

Забудь. "Фарш невозможно прокрутить назад", объекты существуют только в исходниках.

Posted via ActualForum NNTP Server 1.5