Hook to Window

[haruhi]

2-3 раза в секунду (с помощью таймера) проверяй наличие окон с заголовками названия которых указаны в ListBox

Button.Enabled := False;
winHandle:= GetActiveWindow (или GetForegroundWindow)
wintext:=getwindowtext(winHandle);
for i:=0 to ListBox.Count-1 do
 if wintext=listbox.items[i] then Button.Enabled := True;

[KWN, lnc]

прелесть в том что он не должен сбрасываться.
я заметил

Button.Enabled := False;
winHandle:= GetActiveWindow (или GetForegroundWindow)
wintext:=getwindowtext(winHandle);
for i:=0 to ListBox.Count-1 do
// после снова проверяет и включает
if wintext=listbox.items[i] then Button.Enabled := True;

то есть он сбрасывает а после снова проверяет (((

[haruhi]

сброс кнопки вначале нужен для реализации вот этого

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

после того как мы закрываем указанный заголовок или переклчаем окно - тогда Button.Enabled := False;

т.е. если искомое окно будет активным то кнопка будет доступной, если нет, то условние if wintext=listbox.items[i] then Button.Enabled := True; не будет выполнено и кнопка останется неактивной

[KWN, lnc]

теперь поправочка..
куда его впаять?

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]));
Form1.Button.Enabled := False;
winHandle:= GetActiveWindow{ (èëè GetForegroundWindow)}
wintext:=getwindowtext(winHandle);
for i:=0 to Form1.ListBox.Count-1 do
 if wintext=Form1.listbox.items[i] then Form1.Button.Enabled := True;

end;
result:=true;
end;

не то

[haruhi]

зачем Вам EnumWindows если нужно только активное окно?

[KWN, lnc]

var
 winHandle: THandle;
 wintext: String;
begin
Button.Enabled := False;
winHandle:= GetActiveWindow;
wintext:=getwindowtext(winHandle);
for i:=0 to ListBox.Count-1 do
 if wintext=listbox.items[i] then Button.Enabled := True;
end;

что не так?

я сделал так

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
begin
Button.Enabled := False;
for i:=0 to ListBox1.Count -1 do
 if GetWindow = listbox1.items[i] then Button.Enabled := True;
end;

все работает, вот только мне не нравиться что он сначало выключает а после только включает ((( не должно быть сбоев ((( пожалуста подскажите как исправить ((( вот почему я создал эту тему (((

да и вот еще что, этот пример отслеживает, только строго указанные заголовки.. то есть если указанно "Безымянный - Блокнот" он фиксирует нормально! а если "Блокнот" то он уже не работает (((( а вот предыдушая функия EnumWindowsProc дедала как надо !! выручайте УВАЖАЕМЫЙ ПРОГРАММИСТЫ!!!!

[haruhi]

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
begin
Button.Enabled := False;
for i:=0 to ListBox1.Count -1 do
 if GetWindow = listbox1.items[i] then Button.Enabled := True;
end;

все работает, вот только мне не нравиться что он сначало выключает а после только включает ((( не должно быть сбоев ((( пожалуста подскажите как исправить ((( вот почему я создал эту тему (((

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
 finded:boolean;
begin
finded:=false;
for i:=0 to ListBox1.Count -1 do
 if GetWindow = listbox1.items[i] then finded := True;
Button.Enabled:=finded;
end;

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

да и вот еще что, этот пример отслеживает, только строго указанные заголовки.. то есть если указанно "Безымянный - Блокнот" он фиксирует нормально! а если "Блокнот" то он уже не работает (((( а вот предыдушая функия EnumWindowsProc дедала как надо !!

своей головой когда думать будем?

if pos(AnsiUpperCase(Form1.ListBox1.Items[e]),AnsiUpperCase(<переменная с заголовком окна>))>0 then finded:=true;

[KWN, lnc]

уважаемый программист haruhi
сделайте пожалуйста исходник примера с

if pos(AnsiUpperCase(Form1.ListBox1.Items[e]),AnsiUpperCase(<переменная с заголовком окна>))>0 then finded:=true;

[haruhi]

если у вас GetWindow это функция для получения заголовка активного окна, то надо так

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
begin
Button.Enabled := False;
for i:=0 to ListBox1.Count -1 do
 if pos(AnsiUpperCase(Form1.ListBox1.Items[e]),AnsiUpperCase(GetWindow))>0 then finded:=true;
end;

[KWN, lnc]

haruhi? огромное человеческое спасибо! ДУМАЮ, ТЕМУ МОЖНО ЗАКРЫВАТЬ )))) всем спасибо за участие..