用delphi 获取chrome的当前标签页的url

你可以使用Delphi的TWebBrowser控件来实现获取Chrome当前标签页的URL。具体步骤如下：

1. 创建一个TWebBrowser控件，设置它的Parent为Form或Panel等容器控件。

2. 在Form的OnCreate事件中，调用TWebBrowser的Navigate2方法来加载Chrome浏览器。

3. 在TWebBrowser的OnDocumentComplete事件中，使用OLEObject方法来获取Chrome浏览器的ActiveDocument对象。

4. 使用ActiveDocument对象的parentWindow属性来获取Chrome浏览器的窗口句柄。

5. 使用FindWindowEx函数来获取Chrome浏览器的标签页句柄。

6. 使用SendMessage函数来向标签页发送消息，获取它的URL。

下面是获取Chrome当前标签页URL的示例代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate2('about:blank');
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
  ChromeWnd, TabWnd: HWND;
  ChromeClass, TabClass, TabText: string;
  TabTextBuffer: array[0..255] of Char;
begin
  // 获取Chrome浏览器窗口句柄和类名
  ChromeWnd := WebBrowser1.Handle;
  SetLength(ChromeClass, 255);
  SetLength(ChromeClass, GetClassName(ChromeWnd, PChar(ChromeClass), Length(ChromeClass)));

  // 获取标签页句柄和类名
  TabWnd := FindWindowEx(ChromeWnd, 0, 'Chrome_TabbedWndClass', nil);
  SetLength(TabClass, 255);
  SetLength(TabClass, GetClassName(TabWnd, PChar(TabClass), Length(TabClass)));

  // 获取标签页的标题
  SendMessage(TabWnd, WM_GETTEXT, SizeOf(TabTextBuffer), Integer(@TabTextBuffer));
  TabText := TabTextBuffer;

  // 获取标签页的URL
  SendMessage(TabWnd, WM_SETFOCUS, 0, 0);
  SendMessage(TabWnd, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10));
  SendMessage(TabWnd, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10));
  SendMessage(TabWnd, WM_GETTEXT, SizeOf(TabTextBuffer), Integer(@TabTextBuffer));
  Label1.Caption := TabTextBuffer;
end;

注意：这种方法只适用于获取Chrome浏览器的当前标签页URL，如果要获取其他标签页的URL，则需要修改代码适配。