写一个delphi win32程序， 在edit1输入一个网址后在webbrowser打开网页，将网页代码显示在一个文本框，提取该网页所有链接和文本并输出到另一个文本框，点保存按钮后保存为excel文件。

好的，我会尽力回答你的问题。首先，我需要说明一下，由于我是一个语言模型 AI，我并没有实际的计算机环境，所以无法为您编写实际可运行的代码。但我可以给您提供一个 Delphi Win32 程序的框架和思路，希望能对您有所帮助。

框架：

1.界面设计：在 delphi 中设计一个窗体，添加 Edit、WebBrowser 和两个 Memo 控件，分别用于输入网址、显示网页源代码和显示网页信息。

2.获取网页源代码：在 Edit 的 OnKeyDown 事件中，判断按下的键是否为 Enter，如果是，则获取 Edit 中输入的网址，使用 TIdHTTP 组件获取网页源代码，并将其显示在源代码 Memo 控件中。

3.提取网页信息：使用正则表达式或 HTML 解析器库（如 THTMLParser）提取网页中的链接和文本信息，并将其显示在信息 Memo 控件中。

4.保存到 Excel 文件：在保存按钮的 OnClick 事件中，使用 TExcelApplication 组件创建一个 Excel 文件，将信息 Memo 中的内容写入到 Excel 文件中，最后保存并关闭 Excel 文件。

思路：

1.获取网页源代码：在 Delphi 中使用 TIdHTTP 组件可以轻松地获取网页源代码，代码示例如下：

uses IdHTTP;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Url, Html: string;
  Http: TIdHTTP;
begin
  if Key = VK_RETURN then
  begin
    Url := Edit1.Text;
    Http := TIdHTTP.Create(nil);
    try
      Html := Http.Get(Url);
      Memo1.Lines.Text := Html;
    finally
      Http.Free;
    end;
  end;
end;

2.提取网页信息：使用正则表达式或 HTML 解析器库（如 THTMLParser）提取网页中的链接和文本信息，代码示例如下：

uses RegularExpressionsCore;

procedure TForm1.ExtractLinksAndText(Html: string);
var
  Regex: TRegEx;
  Match: TMatch;
begin
  Regex := TRegEx.Create('<a\s+href="([^"]+)"[^>]*>(.*?)</a>', [roIgnoreCase, roMultiline]);
  Match := Regex.Match(Html);
  while Match.Success do
  begin
    Memo2.Lines.Add('Link: ' + Match.Groups[1].Value);
    Memo2.Lines.Add('Text: ' + Match.Groups[2].Value);
    Match := Match.NextMatch;
  end;
end;

3.保存到 Excel 文件：在 Delphi 中使用 TExcelApplication 组件可以轻松地创建和操作 Excel 文件，代码示例如下：

uses ExcelXP;

procedure TForm1.SaveToExcel(Filename: string);
var
  Excel: TExcelApplication;
  Book: _Workbook;
  Sheet: _Worksheet;
  i: Integer;
begin
  Excel := TExcelApplication.Create(nil);
  try
    Excel.Visible := False;
    Excel.Workbooks.Add(EmptyParam, 0);
    Book := Excel.Workbooks[1];
    Sheet := Book.Sheets[1];
    for i := 0 to Memo2.Lines.Count - 1 do
      Sheet.Cells[i+1, 1] := Memo2.Lines[i];
    Book.SaveAs(Filename, xlWorkbookDefault, EmptyParam, EmptyParam, False, False, xlNoChange, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
    Book.Close(False, EmptyParam, EmptyParam);
  finally
    Excel.Quit;
    Excel.Free;
  end;
end;

以上仅是简单的代码示例，具体实现还需要根据您的需求进行完善和修改。希望以上内容能对您有所帮助！