VPF::получить список окон - Форум программистов

gonzales

Дата 7.1.2007, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 241
Регистрация: 13.3.2006

Репутация: нет
Всего: 2

Вопрос неоднократно обсуждался, но вразумительного ответа я не нашел, поэтому прошу не отсылать к поиску.

Раскрою суть вопроса:
Имеется запущеное приложения, я знаю только имя его исполняемого файла.
Далее делая снимок процессов и используя TProcessEntry32 я могу получить th32ProcessID процесса.
Мне нужно зная ID процесса найти handle его окна (или окон) для последующей работы уже непосредственно с окном,
а именно мне нужно сделать его активным.
А вот как это сделать, не прибегая к жестким методам типа сортировать все окна, у каждого окна искать процесс-родитель и сравнивать их хэндлы.

--------------------

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

Sunvas

Дата 7.1.2007, 02:26 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(gonzales @ 7.1.2007, 00:38

)

А вот как это сделать, не прибегая к жестким методам типа сортировать все окна, у каждого окна искать процесс-родитель и сравнивать их хэндлы.

Как мне кажется это единственный способ. Зная процесс мы никак не можем узнать количество окон открытых им. Выход: нужно делая список всех окон проверять, равен ли номер процесса окна номеру процесса нашего. smile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Дата 7.1.2007, 03:43 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

EnumThreadWindows

Добавлено @ 03:50
примерно так работает....

Код


Function EnumThreadWindowProc(H:THandle;Param:Pointer):Bool;Stdcall;
var  WindowText: array[0..255] of char;
Begin
   GetWindowText(h, WindowText, 255);
   Form1.Memo1.lines.Add(WindowText);

  Result:=True;
End;


procedure TForm1.Button1Click(Sender: TObject);
Var h        : Integer;
    Te32     : TThreadEntry32;
    hProcess : THandle;
    ProcessPid : integer;
Begin

  ProcessPid:= 123456;

  h := CreateToolHelp32Snapshot(TH32CS_SNAPTHREAD,0);

  Te32.dwSize := SizeOf(Te32);

  If Thread32First(h,Te32) Then
  Repeat

    If Te32.th32OwnerProcessID= ProcessPid  Then
      EnumThreadWindows(Te32.th32ThreadID,@EnumThreadWindowProc,0);

  Until Not Thread32Next(h,Te32)

  CloseHandle(h);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »