Получить URL из адресной строки браузера

TDdeClientConv *Client_DDE = new TDdeClientConv(NULL);
 PChar temp;
  AnsiString Result = "";
 
 
         Client_DDE->SetLink("launcher", "WWW_GetWindowInfo");
 
 
   temp = Client_DDE->RequestData("0xFFFFFFFF");
 
   Result = StrPas(temp); 
 
   Result.Delete(Result.Pos(","), Result.Length()-Result.Pos(",")+1);
 
   Result.Delete(1,1);
   Result.Delete(Result.Length(), 1);
 
 
   StrDispose(temp); 
   Client_DDE->CloseLink();
   Client_DDE->Free();
   Edit1->Text=Result;
}

  TDdeClientConv *Client_DDE = new TDdeClientConv(NULL);
  Client_DDE->SetLink("firefox", "WWW_GetWindowInfo");  // для IE - "iexplore", без 'r' на конце
  // регистр символов в имени значения не имеет
 
  String Result = Client_DDE->RequestData("WWW_GetWindowInfo");
  Result.Delete(1, Result.Pos(",")+1);
  Result.Delete(Result.Pos("\""), Result.Length()-Result.Pos("\"")+1);
 
  Client_DDE->CloseLink();
  delete Client_DDE;
  Caption=Result;

  Result.Delete(Result.Pos(",")-1, Result.Length()-Result.Pos(",")+2);
  Result.Delete(1,1);

#include "stdafx.h"
#include <iostream>     
#include <stdlib.h>     
#include <string>       
using namespace std;
 
#define UNICODE
#include <windows.h>
 
int main()
{
    HWND const window = FindWindow( L"Notepad", nullptr );
    if( window == 0 )
    {
        wcerr << "There is no active window." << endl;
    }
    else
    {
        int const   nAttempts   = 3;
        for( int i = 1;  i <= nAttempts;  ++i )
        {
            int const   bufferSize  = 1 + GetWindowTextLength( window );
            wstring     title( bufferSize, L'\0' );
            int const   nChars  = GetWindowText( window, &title[0], bufferSize );
 
            if( nChars == 0 || nChars < GetWindowTextLength( window ) )
            {
                Sleep( 20 );  continue;
            }
            title.resize( nChars );
            wcout << "'" << title << "'" << endl;
            return EXIT_SUCCESS;
        }
        wcerr << "Found a window but unable to obtain the title." << endl;
    }
    system("pause");
    return EXIT_FAILURE;
}

  HWND window = FindWindow(L"Chrome_WidgetWin_1", NULL);

  wchar_t title[100];
  GetWindowText(window, title, 100);
  SendMessage(window, WM_GETTEXT, sizeof(title), (LPARAM)title);