Не срабатывает функция FindWindowEx, в чем причина?

[adkomissarov]

Сообщение от DpolenST

... используй еще одну ковычку перед каждой

На другом форуме чуть раньше подсказали, это действительно работает. Спасибо. Но сейчас уже другая задача встала, в остальных программах окно всегда разное, там пишется версия и дата программы, вот сижу голову ломаю с гуглом на пару.

Сообщение от DpolenST

можно, но придется пройтись по всем окнам (с помощью EnumWindows) и проверить заголовок каждого

что-то не получается, нашел готовый пример, но что-то не хочет:

pw :hwnd;
function FindFunc(h:hwnd):boolean;stdcall;
 var   WindowName: PwideChar;
begin
 result:=true; // продолжить поиск
 pw := 0;
 GetMem(WindowName, 256);
 if GetWindowText(h,WindowName,255) > 0 then
  if pos('Установка',WindowName) > 0 then begin
    pw := h;
    result:=false; // мы нашли то, что нужно, поиск остановить
  end;
 FreeMem(WindowName, 256);
end;

и на кнопку вывел

procedure TForm1.Button2Click(Sender: TObject);
begin
  EnumWindows(@FindFunc,0); // запускаем перечисление
 if pw <> 0 then showmessage('наканецта');
end;

Но где-то видимо ошибочка.