VPF::Закрыть вкладку в Mozilla Firefox - Форум программистов

4Got

Дата 12.11.2009, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

ie:= FindWindow('IEFrame', nil);
if ie <> 0 then
postmessage (ie, WM_CLOSE, 0, 0);

Таким образом я пытаюсь сделать, но код подходит эксплорера, а как быть с вкладками мазилы. Подскажите пожалуйста.

Keeper89

Дата 13.11.2009, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

Надо искать вкладку в наборе MozillaWindowClass.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

4Got

Дата 13.11.2009, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

Это стандартная библиотека или необходимо искать её отдельно. Ведь, по сути, в FindWindow просто необходимо изменить параметр IEFrame, но на что его менять????

4Got

Дата 13.11.2009, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

Товарищи, плиз, подмогите.

4Got

Дата 13.11.2009, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

Спасибо, до меня допёрло, хотя со вкладками еще не разобрался. Извините за глупые вопросы.

4Got

Дата 13.11.2009, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

Блин, ну подскажите структуру классов Мазилы...

4Got

Дата 13.11.2009, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

Кому интересно, вот код закрытия вкладки оперы:

Код



function EnumChildProc (Wd: HWnd; Param: LongInt): Boolean; stdcall;
begin
SendMessage(Wd, WM_DESTROY, $0, $0);
EnumChildProc := False;
end;

procedure CloseChildWindow(wd:Hwnd);
var
  wd1,wd2:  hWnd;
begin
  wd1:=FindWindowEx(wd,0,'OperaWindowClass',nil);
  if wd1<>0 then
  begin
    wd2:=FindWindowEx(wd1,0,'OpWindow',nil);
    if wd2<>0 then EnumChildWindows(wd2, @EnumChildProc, 0);
  end;
end;

function closewn (Wd: HWnd; Param: LongInt): Boolean; stdcall;
var
nm:array [0..255] of char;
begin
GetClassName(wd,nm,255);
if nm='OpWindow' then // если нашли оперу
    CloseChildWindow(wd);
closewn := TRUE;
end;

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

Остаётся найти структуру классов для мозилы...((((

Keeper89

Дата 13.11.2009, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

Цитата(4Got @ 13.11.2009, 18:42

)

Остаётся найти структуру классов для мозилы...((((

Ее можно определить с помощью любой утилиты типа MS Spy++.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

4Got

Дата 13.11.2009, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 29.1.2008

Репутация: нет
Всего: нет

Всё равно не получается выловить структуру... Постоянно закрывается весь браузер.... Пол дня сижу. Если не закрывается, то критическая ошибка..

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »