Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема ;с получением окон в Taskbar [D5, Win95/98]


VJar ©   (2002-06-07 00:56:00) 

У меня такая проблема:
Следующая функция дает названия всех окон, которые есть
в Taskbar. Но с программой Advanced Call Center прикол.
Название ее окна не находит, хотя оно присутсвует в Taskbar.
Если условие написать так, как в скобках {}, то найдет
название окна "Advanced Call Center", но тогда найдет и
другие окна, такие как Form1 и Form1Uni, т.е. мои названия
формы и модуля при разработке моего проекта.
Что делать??? Кто-то знает, что можно изменить или
что-то добавить???

procedure GetWindowCaption(var CaptList:TStringList);
procedure EnumWinProc(handle:hwnd;CaptList:TStringList{lparam:cardinal});stdcall;
var p:array[0..100] of char;
s:string;
begin
if IsWindowVisible(handle) and
((GetWindowLong(handle, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(handle, GWL_HWNDPARENT)) = GetDesktopWindow)) and
((GetWindowLong(handle, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
then

{if IsWindowVisible(handle) and
(GetWindowLong(handle, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then}

begin
GetWindowText(handle, p, 100);
s:=string(p);
if s <> "" then CaptList.Add(s);
end;
end;
BEGIN
CaptList:= TStringList.Create;
CaptList.Clear;
EnumWindows(@EnumWinProc,integer(CaptList));
END;


Diamond Cat   (2002-06-08 02:28:00) [1]

кстати о птичках, эта (гм функция) процедура дает не окна находящиеся в таск баре а вообще название окон подходящих под твои условия, если уменьшить кол-во условий то можно наверно найти и интересующую тебя программу


VJar   (2002-06-07 14:43:00) [2]

Я ели нашел:
ftp://realty.ru/dda/NSA/zip/SpyXX.zip


Игорь Шевченко   (2002-06-07 13:43:00) [3]

Я тоже напрягаться не хочу :-)


VJar   (2002-06-07 13:37:00) [4]

Подскажи, где его можна взять, если знаешь. Не хочу напрягаться искать


Игорь Шевченко   (2002-06-07 11:42:00) [5]

Microsoft"овский аналог WinSight. Менее тормозной


VJar   (2002-06-07 11:37:00) [6]

А что такое Spy++???


Игорь Шевченко   (2002-06-07 11:16:00) [7]

Проще посмотреть Spy++ какие атрибуты имеет окно этой странной программы и включить проверку на наличие этих атрибутов :-)


Наверх

Титульная страница Поиск, карта сайта Написать письмо