20.12.2009, 17:28
|
|
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
С нами:
8687741
Репутация:
-4
|
|
Помогите с гуглом!
Всем привет! Я хочу на Делфи написать программу, которая будет переходить по сайтам в гуглах(чет,кажись,непонятн будет...)
Я написал процедуру:
Код:
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
Как это изменить? |
|
|
20.12.2009, 17:59
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
С нами:
9512608
Репутация:
69
|
|
Что ты хочешь то?? чтобы в проге гугл работал или чтобы он перекидывал в ИЕ??
|
|
|
|
20.12.2009, 18:00
|
|
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
С нами:
8687741
Репутация:
-4
|
|
Сообщение от 0ldbi4
Что ты хочешь то?? чтобы в проге гугл работал или чтобы он перекидывал в ИЕ??
Я кинул на форму эдит и кнопку.
Мне нужно чтобы после нажатия на кнопку открывался ИЕ с гуглом и производил поиск того что написанно в эдите
|
|
|
|
20.12.2009, 18:02
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
и что тебе не нравится? гугль просто редиректит тебя на эту страницу. даже когда ты ввел слово в поиске, то он редиректит тебя на неё.
|
|
|
|
20.12.2009, 18:04
|
|
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
С нами:
8687741
Репутация:
-4
|
|
Сообщение от slesh
и что тебе не нравится? гугль просто редиректит тебя на эту страницу. даже когда ты ввел слово в поиске, то он редиректит тебя на неё.
А можно его обойти, или что-нибудь зделать? Мне нужно чтобы просто открылась страница, с поиском слова, в эдите
Последний раз редактировалось marcos; 20.12.2009 в 18:07..
|
|
|
|
20.12.2009, 19:35
|
|
Постоянный
Регистрация: 18.11.2009
Сообщений: 709
С нами:
8674045
Репутация:
214
|
|
попробуй искать через mail.ru, у них страничка по-проще, а по словам сми они заменили аренду поиска у яндекса на аренду у гугла
|
|
|
|
22.12.2009, 17:12
|
|
Новичок
Регистрация: 20.08.2009
Сообщений: 1
С нами:
8803737
Репутация:
0
|
|
Код:
ShellExecute(Handle,nil,PChar('http://www.google.ru/search?hl=ru&rlz=1R2ADFA_ruRU357&newwindow=1&q=' + edit1.Text), nil, nil,SW_SHOWNORMAL);
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид
