Как изменить URL в адресной строке браузера

String q;
  DdeClientConv1->SetLink(Browser, "WWW_GetWindowInfo");   
    DdeClientConv1->StartAdvise();
    DdeClientConv1->PokeDataLines("0xFFFFFFFF",q);
   DdeClientConv1->CloseLink();

DdeClientConv1->SetLink("Opera", "WWW_OpenURL");
 DdeClientConv1->RequestData("www.cyberforum.ru");

HWND hManForm;
   hManForm = FindWindow("OpWindow",0);
         SetForegroundWindow(hManForm);
  PostMessage(hManForm, WM_KEYDOWN,'W' , VK_CONTROL);
  PostMessage(hManForm, WM_KEYUP, 'W', VK_CONTROL);

BYTE keys[256];
GetKeyboardState(keys);
keys[17] = 128;
SetKeyboardState(keys);
keybd_event(87, 0, 0, 0);

HWND hManForm;
hManForm = FindWindow("Opera",0);
SetForegroundWindow(hManForm);

HWND hManForm;
hManForm = FindWindow("OpWindow",0);
SetForegroundWindow(hManForm);
BYTE keys[256];
GetKeyboardState(keys);
keys[17] = 128;
SetKeyboardState(keys);
keybd_event(87, 0, 0, 0);

WORD w;
HWND hManForm;
hManForm = FindWindow("OpWindow",0);
SetForegroundWindow(hManForm);
keybd_event(VK_CONTROL, 0, 0, 0);
w = VkKeyScan('W');
keybd_event(w,0,0,0);
keybd_event(w,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
SetForegroundWindow(hManForm);// а теперь обратно

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     AnsiString Result;  char * temp;
     DdeClientConv1->ConnectMode = ddeAutomatic;
     DdeClientConv1->SetLink(Edit1->Text,"WWW_GetWindowInfo");
     temp = DdeClientConv1->RequestData("-1");
    Result = temp; 
    Result=Result.Delete(Result.Pos(","), Result.Length()-Result.Pos(",")+1);
    Result=Result.Delete(Result.Length(),1);
    Result=Result.Delete(1,1); 
    Edit2->Text = Result ;
     StrDispose(temp);
     DdeClientConv1->CloseLink();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     if (DdeClientConv1->SetLink(Edit1->Text,"WWW_OpenURL")) { 
       DdeClientConv1->RequestData(Edit3->Text+" ");
       DdeClientConv1->CloseLink();
     } 
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WORD w;
HWND hOpera;
hOpera = FindWindowA("OperaWindowClass",NULL);
if(!hOpera) { ShowMessage("Not found"); return;}
 
SetForegroundWindow(hOpera);
w = VkKeyScan('W');
 
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(w,0,0,0);
 
keybd_event(w,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
}
//---------------------------------------------------------------------------