Помогите с гуглом!

[marcos]

Всем привет! Я хочу на Делфи написать программу, которая будет переходить по сайтам в гуглах(чет,кажись,непонятн� � будет...)
Я написал процедуру:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute(TForm(Owner).Handle,nil,PChar('http://www.google.ru/search?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1&q='), nil, nil,SW_SHOWNORMAL);
end;

НО он в IE и в ОПЕРЕ открывает страницу http://www.google.ru/webhp?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1

Как это изменить?

[0ldbi4]

Что ты хочешь то?? чтобы в проге гугл работал или чтобы он перекидывал в ИЕ??

[marcos]

Что ты хочешь то?? чтобы в проге гугл работал или чтобы он перекидывал в ИЕ??

Я кинул на форму эдит и кнопку.
Мне нужно чтобы после нажатия на кнопку открывался ИЕ с гуглом и производил поиск того что написанно в эдите

[slesh]

и что тебе не нравится? гугль просто редиректит тебя на эту страницу. даже когда ты ввел слово в поиске, то он редиректит тебя на неё.

[marcos]

и что тебе не нравится? гугль просто редиректит тебя на эту страницу. даже когда ты ввел слово в поиске, то он редиректит тебя на неё.


А можно его обойти, или что-нибудь зделать? Мне нужно чтобы просто открылась страница, с поиском слова, в эдите

[lukmus]

попробуй искать через mail.ru, у них страничка по-проще, а по словам сми они заменили аренду поиска у яндекса на аренду у гугла

[consoleus]

ShellExecute(Handle,nil,PChar('http://www.google.ru/search?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1&q=' + edit1.Text), nil, nil,SW_SHOWNORMAL);