Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.22;
Скачать: CL | DM;

Вниз

Как получить список хендлов всех программ не в трее а в таскбаре?   Найти похожие ветки 

 
oduvan   (2003-07-20 20:07) [0]

Как получить список хендлов всех программ которые находятся в данный момент на панели задачь?

//Handle:=FindWindow("ToolbarWindow32",nil);
- неработает (
//Handle:=FindWindow("Shell_TrayWnd или типа того",nil);
- неработает (

Handle:=GetWindow(GetDesktopWindow,GW_CHILD);
while Handle<>0 do
begin
if GetWindowText(Handle,Result,1024)>0 then
begin
P:=(GetWindowLong(Handle,GWL_STYLE) and WS_TABSTOP)<>0;
if P then
begin
GetClassName(Handle,ClassName,1024);
a:=GetClassLong(Handle,GCL_HICON);
b:=GetClassLong(Handle,GCL_HICONSM);
ListBox1.Items.Add(IntToStr(A)+":"+IntToStr(B)+":"+Result);
end;
end;
( Handle,GW_HWNDNEXT) Как получить список хендлов всех программ которые находятся в данный момент на панели задачь?

//Handle:=FindWindow("ToolbarWindow32",nil);
- неработает (
//Handle:=FindWindow("Shell_TrayWnd или типа того",nil);
- неработает (

Handle:=GetWindow(GetDesktopWindow,GW_CHILD);
while Handle<>0 do
begin
if GetWindowText(Handle,Result,1024)>0 then
begin
P:=(GetWindowLong(Handle,GWL_STYLE) and WS_TABSTOP)<>0;
if P then
begin
GetClassName(Handle,ClassName,1024);
a:=GetClassLong(Handle,GCL_HICON);
b:=GetClassLong(Handle,GCL_HICONSM);
ListBox1.Items.Add(IntToStr(A)+":"+IntToStr(B)+":"+Result);
end;
end;
Handle:=GetNextWindow(Handle,GW_HWNDNEXT);
end;

этот код берет вообще все программы, которые висят в памяти (или почти все), а как достать только те которые на панели задач


 
oduvan   (2003-07-21 16:12) [1]

Ну вы мастера или нет? помогите



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

Текущий архив: 2003.09.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
14-71906
shelest
2003-09-03 13:29
2003.09.22
DOA for Delphi 7


1-71701
Andery
2003-09-11 15:32
2003.09.22
FastReport и DLL


8-71768
Vyacheslav
2003-05-27 16:04
2003.09.22
Снова про компоненты для работы с различными растровыми форматами


1-71614
gss
2003-09-05 20:51
2003.09.22
Исключение на закрытии приложения


8-71758
Renul
2003-05-24 11:46
2003.09.22
Удаление рисунка