用delphi获取chrome浏览器的当前url

可以通过以下代码获取Chrome浏览器的当前URL：

uses
  ActiveX, SHDocVw;

function GetCurrentChromeURL: string;
var
  ShellWindows: IShellWindows;
  IE: IWebbrowser2;
  URL: OleVariant;
  ItemIndex: Integer;
begin
  Result := '';
  ShellWindows := CoShellWindows.Create;
  for ItemIndex := 0 to ShellWindows.Count - 1 do
  begin
    if Supports(ShellWindows.Item(ItemIndex), IWebbrowser2, IE) then
    begin
      if (IE.FullName = 'C:\Program Files (x86)\Google\Chrome\Application\chrome.exe') or
         (IE.FullName = 'C:\Program Files\Google\Chrome\Application\chrome.exe') then
      begin
        URL := IE.Document.LocationURL;
        Result := URL;
        Break;
      end;
    end;
  end;
end;

注意需要在程序中引入 `ActiveX` 和 `SHDocVw` 单元。