急求帮助，关于WebBrowser 一疑问

Question

程序如下：WebBrowser1.Navigate('C:\123.html');
sleep(3000);//123.html 运行3秒后删除
DELETEFILE(''C:\123.html');
Showmessage('成功');
问题是WebBrowser1加载完后根本就不删掉那个文件。怎么办？？？
有这类经验的大哥大姐请帮我一把。谢谢啊。在线等

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw_TLB, EmbeddedWB;type
  TForm1 = class(TForm)
    EmbeddedWB1: TEmbeddedWB;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure EmbeddedWB1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
EmbeddedWB1.Navigate('c:\index.htm');
end;procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
DeleteFile('c:\index.htm');
end;end.把EmbeddedWB1换成WebBrowser1就行了

Answer 2

给你个思路吧，我想这样是可以的。先将webbrowser导到about:blank空白页: WebBrowser1.Navigate('about:blank');然后在webbrowser的DocumentComplete事件里：
procedure TForm1.Button1Click(Sender: TObject);
var
   v: Variant;
   HTMLDocument: IHTMLDocument2;
begin
   HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
   v := VarArrayCreate([0, 0], varVariant);
   v[0] := 字符串（这个字符串是用文件open 123.html后read到一个字符串里面。
   HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
   在这里删除123.html
end

Answer 3

上面的button1click应该是webbrowser1DocumentComplete