Hook to Window

[KWN, lnc]

Здравствуйте!

Подскажите пожалуйста как через Hook.dll следить за окнами. и сравнивать со ListBOx списком.. если заголовок присудствует тогда комманда
Beep;

[fate]

если только нужно следить за появлением окна с нужным заголовком, то можно и без хука обойтись, достаточно таймера и функции enumwindows

[haruhi]

если используется хук, то необходимо использовать разделяемую память (файловый мэппинг). список названий окон из ListBox надо будет скопировать в разделяемый буфер.

а если задача только поиск окон с нужным заголовком, то конечно таймер и enumwindows намного проще

[KWN, lnc]

а исходник с примером можно? если не сложно.. я так понял сравнивать вот так...

  for i := 0 to List.Items.Count - 1 do
  if Pos(Str, List.Items.Strings[i]) > 0 then

а вот как бы точно отсечь появление окна чтобы вывести

Button1.Enabled := True;

а при переключении окна или смена страницы - с заголовком..

Button1.Enabled := False;

но не могли все таки исходник приблизительный выложить! заранее спасибо

[Стелс]

Сообщение от KWN, lnc

а исходник с примером можно? если не сложно.. я так понял сравнивать вот так...

  for i := 0 to List.Items.Count - 1 do
  if Pos(Str, List.Items.Strings[i]) > 0 then

а вот как бы точно отсечь появление окна чтобы вывести

Button1.Enabled := True;

а при переключении окна или смена страницы - с заголовком..

Button1.Enabled := False;

но не могли все таки исходник приблизительный выложить! заранее спасибо

ага исходник бы мы тогда поможем ............

[KWN, lnc]

необходимо чтобы при обнаружении заголовка окна из списка, скажем listBox
скажем там присудствует 'Блокнот'
включалась на моей форме

Button1.Enabled := True;

а при переключении или закрытии окна Блокнота

Button1.Enabled := False;

WH_CBT вставляемая НООК-функция следит за окнами, а именно: за созданием, активацией, уничтожением, сменой размера; перед завершением системной команды меню, перед извлечением события мыши или клавиатуры из очереди сообщений, перед установкой фокуса и т.д.

вот как только воспользоваться ею.. подскажите пожалуйста...

[fate]

да забудь ты про хуки, лишний геморой
таймер + enumwindows

чуть позже могу набросать пример
P.S.
если настроение будет )

[KWN, lnc]

набросай ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!

[fate]

function EnumWindowsProc(hw:HWND; i:Cardinal):boolean;
var str:array[0..255]of char;
    e:dword;
begin
if IsWindowVisible(hw) then begin
  SendMessage(hw,WM_GETTEXT,length(str),lparam(@str[1]));
  for e:=0 to Form1.ListBox1.Items.Count-1 do
    if pos(AnsiUpperCase(Form1.ListBox1.Items[e]),AnsiUpperCase(str))>0 then
      Form1.ListBox1.Items[e]:=Form1.ListBox1.Items[e]+' - OK';

end;
result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
enumwindows(@EnumWindowsProc,0);
end;

и не забудь объявить EnumWindowsProc

[KWN, lnc]

ничего не понял.. не работает (((
мне еще нужен был СТАТУС - активно и закрыто ... это как будет??