怎么用Delphi来控制打开的浏览器？(50分)

请问：
我现在用Delphi程序已经能打开浏览器了，现在我想在关闭此浏览器的时候程序能有提示功能，请问能实现吗？怎么实现？

if MessageBox(GetActiveWindow(), '是否关闭','警告', MB_yesno + MB_ICONWARNING)=id_yes then
....//关闭
？？？？？

我的意思是当点击浏览器（Delphi程序打开的页面）的关闭按钮时。Delphi程序能有提示：“当前任务还没有处理！”，选择“是”可以关闭，选择“否”不可以关闭！

双击Form的OnCloseQuery时间，写上下面的代码：

CanClose := MessageBox(handle,'当前任务还没有处理！', '询问', MB_ICONQUESTION or MB_YESNO) = idYes;

最新题面是：
用Delphi程序打开打开了某个地址的Internet网页，当这个Internet网页要关闭时，怎么用Delphi程序来控制它，比如：点击Internet网页（Delphi程序打开的指定网页）的关闭按钮时。Delphi程序能有提示：“当前任务还没有处理！”，选择“是”关闭，选择“否”不可以关闭！
我的程序原码是：
procedure TForm1.GetUserTaskInfoFromDB;
var
IsUse,Receiverid,IP,Typeid,Password:string;
begin
//----------------------------------------
with Tstringlist.create do
begin
loadfromfile('c:/DU/User.txt');
IsUse:=strings[0];
Receiverid:=strings[1];
IP:=strings[2];
Typeid:=strings[3];
Password:=strings[4];
end;
//----------------------------------------
Database1.Connected := True;
with Query1 do
begin
Close;
DatabaseName := Database1.DatabaseName;
SQL.Clear;
SQL.Add('Select * From Tab_UserDeskTop where IsUse = '''+IsUse+''' and Receiverid = '''+Receiverid+'''');
Open;
if Not IsEmpty then
begin
Application.MessageBox('设计项目管理系统中有您要处理的文件！','处理提示',0);
ShellExecute(0,'open',pchar('http://'+IP+'/PDIMis/Login.asp?Typeid='+Typeid+'&Loginid='+Receiverid+'&Password='+Password), nil,nil,SW_SHOWNORMAL);
end;
end;
end;
怎么控制用ShellExecute打开的这个网页？

编辑Form的OnCloseQuery事件

你得用OLE打开浏览器,控制它浏览网页,这样才能得到它的消息

我建议你用TWebBrowse控件，放在程序内浏览，可样就好控制。。

到此一游