请问，怎么得到edit1.text的文字并导航到url里呢

Question

请问，怎么得到edit1.text的文字并导航到url里呢。
比如在edit1.text输入‘电脑’，按搜索就转到url上去。http://www.abcd.com/search.asp?search='电脑'

Answer 1

之前写的，参考一下：procedure TForm1.Button2Click(Sender: TObject);
var  HWindow,hedit: THandle; //句本柄变量
szText: Array[0..255] Of char;   //得到的字符串
Begin
   HWindow := 0;
   While true Do
      Begin
       HWindow := FindWindowEx(0, HWindow, 'SciCalc', Nil);//找计算器的窗体
       if HWindow=0 then exit;
       If HWindow <> 0 Then
        Begin
        hEdit := FindWindowEx(hwindow, 0, 'Edit', Nil);  //找到edit文本框
        if HEdit<>0 then
        begin
      SendMessage(hEdit, WM_GetTEXT, 256,integer(@szText[0])); //取值
      edit1.Text:= szText; //符值
     break;
    End;
    end;
  end;
End;

Answer 2

ShellExecute(Handle,'OPEN',pchar(Edit1.Text),nil,nil,9);