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 всех окон
RTFM EnumWindows
devious
Дата: 25.06.2019 19:32:02
white_nigger
devious
Не соображу
Задача найти handl всех окон по имени класса
Написал
h := findwindow(pchar(param1), pchar(param11));


Суть проблемы в том что окон с такими классами и именами несколько, а процедура возвращает только первого найденого:( а надо вывести handle всех окон
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