delphi 关闭IE窗口解决思路

delphi 关闭IE窗口
我用shellexecute(handle,'open',' http://www.baidu.com',nil,nil,SW_SHOWMAXIMIZED);在IE上打开了百度

怎么把这个窗口关闭掉

还有一个问题

我打开的窗口时覆盖了原来的IE窗口

怎么在新的窗口中打开


[解决办法]
新窗口中打开:
ShellExecute(0, 'open', 'iexplore.exe ', pchar('http://www.baidu.com'), '', SW_SHOWNORMAL);



关闭在IE上打开的百度:
sendMessage(findwindow('IEFrame','百度一下，你就知道 - Windows Internet Explorer'),WM_CLOSE,0,0);


[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
IE: Variant;

implementation

{$R *.dfm}

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
begin //打开IE，进入百度
 IE := CreateOleObject('InternetExplorer.Application');
 IE.Visible := true; //可见
 IE.Navigate('www.baidu.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin//关闭IE的方法
 IE.Quit;
end;

end.




楼主发贴最好别发到非技术区，要不然你的分就没有价值了。得到你的分一点用都没有。