Скачать: CL | DM;

Отследить появление окна   Найти похожие ветки 

← →
Первакласник Вася   (2007-04-06 21:13) [0]

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

Подскажите пожалуйста как можно проверить что запущено окно Internet Explorer?

---

← →
Первакласник Вася   (2007-04-07 20:16) [1]

Здрасте!

Неужели никто не может подсказать?

---

← →
Virgo_Style ©   (2007-04-07 20:33) [2]

FindWindow ?

---

← →
homm ©   (2007-04-07 20:35) [3]

> Отследить появление окна

> как можно проверить что запущено окно Internet Explorer?

Это две большие разницы. Подсказака: Первое сложнее в разы.

---

← →
Первакласник Вася   (2007-04-07 21:05) [4]

:((

Хорошо! Подойду к вопросу несколько иначе.
Мне нужно проверить, запущен ли обозреватель с заголовком "Maстера DELPHI".
Я поступаю следующим образом:


if findwindow("IEFrame","Maстера DELPHI")<>0 then
действие 1 иначе действие 2.


Пробовал много разных вариантов, но результат отрицательный :(
Подскажите плиз, куда копать-то?

---

← →
palva ©   (2007-04-07 22:35) [5]

function fn(Hwnd: THandle; Param: Pointer): Boolean; stdcall;
var s: String;
len: Integer;
begin
 len := GetWindowTextLength(Hwnd);
 if len > 0 then begin
   SetLength(s, len);
   GetWindowText(Hwnd, PChar(s), len+1);
   if Copy(s, 1, 14) = "Мастера DELPHI" then begin
     Form1.ListBox1.Items.Add(s);
   end;
 end;
 Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 EnumWindows(@fn, 0);
end;


---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.045 c