Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
ВнизОтследить появление окна Найти похожие ветки
← →
Первакласник Вася (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.062 c