VPF::Программно закрыть Internet Explorer 7

Vladimir_K

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

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

Загрузка ...

Шустрый

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

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

Подскажите, пожалста, как программно закрыть IE7?

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Vladimir_K

Дата 21.1.2008, 17:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вот нашел примерчик:

Код


procedure TForm1.Button1Click(Sender: TObject);   
var  
xHWND: integer;   
begin  
xHWND := findwindow(nil, 'Яндекс - Windows Internet Explorer);   
sendmessage(xHWND, WM_CLOSE, 0, 0);   
end;

Но здесь надо писать полностью заголовок окна: Яндекс - Windows Internet Explorer, а если написать просто: Windows Internet Explorer - окно не закрывается.
Какой выход из этой ситуации?

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

THandle

Дата 21.1.2008, 18:34 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

WinSpy++ - http://dpclub.clan.su/load/0-0-0-2-20
или стандартный WS32.
С их помощью можно узнать класс окна.

Это сообщение отредактировал(а) THandle - 21.1.2008, 18:34

dumb

Дата 21.1.2008, 18:38 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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

Код


  PostMessage(FindWindow('IEFrame', nil), WM_CLOSE, 0, 0);

Vladimir_K

Дата 21.1.2008, 19:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(dumb @ 21.1.2008, 17:38)

Код


  PostMessage(FindWindow('IEFrame', nil), WM_CLOSE, 0, 0);

Это, конечно работает, но закрывает мне и IE7 и его надстройки (MyIE2), а мне нужно только IE7.

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Vladimir_K

Дата 21.1.2008, 20:06 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Вот так эта задача решается:

Код


uses TLhelp32
.
.
.

Function getProcessId(Exename:string):Dword;
var snap:DWORD;
pe:TprocessEntry32;
begin
result:=0;
snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if snap <>INVALID_HANDLE_VALUE then begin
pe.dwSize:=sizeof(TPROCESSENTRY32);
if process32First(snap,pe) then
repeat
if pe.szExeFile=exename then begin
result:=pe.th32ProcessID;
closehandle(snap);
exit;
end;
until not process32Next(snap,pe);
closehandle(snap);
result:=0;
end;
end;


function TerminateProcess(id:integer):boolean;
var hprocess:Thandle;
begin
hprocess:=OpenProcess(PROCESS_TERMINATE,false,id); 
if (hprocess=0) then begin
result:=false;
exit;
end;
result:=windows.TerminateProcess(hprocess,0);
closehandle(hprocess);
if not result then exit;
result:=True;
end;

procedure TForm1.CloseIE7Click(Sender: TObject);   
begin  
 TerminateProcess(getProcessId('iexplore.exe'));   
end;

IE - закрывается, его надстройки (MyIE2 и др.) - нет.

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

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

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