Вниз
Скачать: CL | DM;

Как найти все главные Окна и распредилить их по заголовку ?   Найти похожие ветки 

← →
ЛамоРщщук   (2008-10-05 15:34) [0]

Привет всем , надеюсь на вашу помошь =))))нужно найти все Главные окна и добавить их в листбокс , причём имя добавляемой записи в лист бокс должна соответсвовать заголовку окна , а не хэндла =)))
например
function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!!
Begin

if GetClassName(Wd,"mainwindow",30)=1 then begin
   form1.ListBox1.Items.Add(IntToStr(Wd));        // Добавляем текущий описатель окна
   EnumProc := TRUE;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ListBox1.Items.Clear;         // Очистим список перед началом поисков
   EnumWindows (@EnumProc, 0); // и скажем - искать
end;


Этот код ищет все Окна , в том числе не нужные нам =) и добавляет их по хендлу а нам

нужно найти все главные окна .

как это правельно сделать ?Функцией GetClassName ?
Что писать в ClassName ? какие бывают классы ?


← →
Anatoly Podgoretsky ©   (2008-10-05 15:57) [1]

Что такое главные Окна

Насчет классов - классы равные бывают и ни чем не ограничены.


← →
@!!ex ©   (2008-10-05 16:05) [2]

EnumWindows
GetWindowText


← →
@!!ex ©   (2008-10-05 16:07) [3]

отправил не полностью:
EnumWindows
GetWindowText
Дают только ГЛАВНЫЕ окна.

EnumChildWindows
дает не главные.


← →
DVM ©   (2008-10-05 19:30) [4]


> нужно найти все Главные окна

главные - это те кнопки к которым появляются на панели задач?


← →
Плохиш ©   (2008-10-06 11:38) [5]


> главные - это те кнопки

Хм, в вопросе вроде про окна спрашивали...


← →
clickmaker ©   (2008-10-06 16:55) [6]

> имя добавляемой записи в лист бокс должна соответсвовать
> заголовку окна , а не хэндла

а у хэндла есть заголовок?


← →
Leonid Troyanovsky ©   (2008-10-06 21:42) [7]


> ЛамоРщщук   (05.10.08 15:34)  

> нужно найти все главные окна .

А окна бывают главными?

--
Regards, LVT.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c
15-1221421673
kaif
2008-09-14 23:47
2008.11.16
Uriah Heep Sympathy


6-1195035982
sdaf
2007-11-14 13:26
2008.11.16
чат для локальной сети


2-1223225518
koha!
2008-10-05 20:51
2008.11.16
TListView - и снова вопросы....


2-1223030460
Развёртка
2008-10-03 14:41
2008.11.16
Переключение раскладки клавиатуры в TurboPascal


2-1223031850
workbench
2008-10-03 15:04
2008.11.16
выделение текста




   Наверх