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

[Vladimir K.]

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

[vitalik007]

Function getProcessId(Exename:string):Dword;
var snap:DWORD;
pe:TprocessEntry32;
begin
result:=0;
snap:=CreateToolhelp32Snapshot(TH32 CS_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):boolea n;
var hprocess:Thandle;
begin
hprocess:=OpenProcess(PROCESS_TERMI NATE,false,id);
if (hprocess=0) then begin
result:=false;
exit;
end;
result:=windows.TerminateProcess(hp rocess,0);
closehandle(hprocess);
if not result then exit;
result:=True;
end;

TerminateProcess(getProcessId('iexp lore.exe'));

[NoName_emaNoN]

Можно найти процесс Интернет Експлорера и убить его. Можно по заголовку окон искать и если он, то посылать сообщение WM_CLOSE (или WM_DESTROY точно не помню), чтобы цивильно проводить его в последний путь .

[Vladimir K.]

vitalik007, что-то сложновато... Никак не разберусь.

Вот нашел примерчик (спасибо за подсказку, в каком направлении искать):

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 - окно не закрывается.
Какой выход из этой ситуации?

[vitalik007]

По заголовку тупо искать!
ну если тебе так хочется
То находи заголовок и записывай к примеру в text:string;
потом если Pos('Windows Internet Explorer',text)>0 тогда убивай

[Veiron]

Лучше убивать по названию процесса т.к. некоторые твикеры позволяют изменить название заголовка главного окна эксплорера, решать вам конечно, не каждый в любом случае его переименует.
P.S. у меня к примеру он называется "[ ~Veiron~ - Internet Viewer ]"...

[vitalik007]

Vladimir
Лучше разберись в моем коде если что пиши в асю!

[Vladimir K.]

Давай здесь.
Значит так, функции в прогу вписал.
Вызов такой:

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

Ошибки в первой функции:

[Error] A_2U.pas(137): Undeclared identifier: 'TprocessEntry32'
[Error] A_2U.pas(140): Undeclared identifier: 'CreateToolhelp32Snapshot'
[Error] A_2U.pas(140): Undeclared identifier: 'TH32CS_SNAPPROCESS'
[Error] A_2U.pas(142): Missing operator or semicolon
[Error] A_2U.pas(143): Undeclared identifier: 'process32First'
[Error] A_2U.pas(145): 'THEN' expected but identifier 'szExeFile' found
[Error] A_2U.pas(146): Missing operator or semicolon
[Error] A_2U.pas(150): Undeclared identifier: 'process32Next'

Кстати, если юзать такой способ:

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

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

[Vladimir K.]

В uses у меня:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdHttp, StdCtrls, ComCtrls, ActiveX, MsHtml, IdBaseComponent,
IdCookieManager, IdComponent, IdTCPConnection, IdTCPClient, IdIntercept,
IdSocks, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, WinInet, Registry, WinSock,
OleCtrls, SHDocVw;

может еще что-нибудь прописать?

[vitalik007]

Забыл сказать надо там где uses дописать TLhelp32