1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

Список окон

Тема в разделе "Delphi - Система", создана пользователем konst_64, 22 авг 2005.

Статус темы:
Закрыта.
  1. konst_64

    konst_64 Гость

    Репутация:
    0
    Всем привет.

    Кто может сказать каким образом можно исзвлечь указатели на все окна в системе на текущий момент ( нужны полные цепочки указателей ).
    Перечитал кучу доки, но результатов почти нет ...
     
  2. Barmutik

    Barmutik Гость

    Репутация:
    0
    Что Вы подразумеваете под словом указатели?

    Если это хэндлы окон то используйте FindWindow
     
  3. spoiler

    spoiler Гость

    Репутация:
    0
    да именно указатели

    использовал следующий алгоритм, но список указателей не полный.
    Если несложно посоветуйте вариант поиска ВСЕХ указателей

    Код (Text):
    function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall;
    Begin
     form1.LD.Items.Add(IntToStr( GetWindowThreadProcessId( WD ) ));
     EnumProc := TRUE;
    end;

    procedure GetAllWindow;
    Var
      WD : HWND;
      mProcessID,mThreadID : Dword;
    begin
     form1.L5.Items.Clear;
     EnumWindows (@EnumProc, 0);
     Wd := FindWindow( 0, 0 );
     While ( Wd <> 0 ) do
       Wd:=GetNextWindow(Wd,GW_HWNDNEXT);
    end;
     
  4. mike.dld

    mike.dld Гость

    Репутация:
    0
    Что значит "всех"? Если имеются в виду и дочерние окна, для каждого окна испщльзуйте EnumChildWindows.
     
  5. Гость

    Репутация:
    0
    Всем БАЛЬшое спасибо, проблема решена
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей