Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как запустить браузер например Opera

Автор: AndreyZ53 23.8.2008, 17:46

Как запусить браузер например Opera и чтобы в адресную строку вставилась ссылка, но мне надо чтобы ссылка эта бралась например с ListBox, то есть та которую пользователь выберит, вот код когда открывает с определённой ссылкой

WinExec('С:\Opera.exe http://mail.ru', SW_SHOW);

Вот запсукает сайт mail.ru

а как с listBox пробывал так WinExec('С:Opera.exe' pChar(ListBox.Items[0]), SW_SHOW); так не запускает выдаёт ошибку, помогите плиз за ранее благодарен

Автор: volvo877 23.8.2008, 18:43

Так не пробовал:

Код


WinExec(pchar('C:\opera.exe ' + ListBox1.Items[ListBox1.ItemIndex]), SW_SHOW);

Автор: AndreyZ53 23.8.2008, 19:18

Вот попробывал, ошибки нету, но ничего не выполняется, не запускается даже Opera

Автор: volvo877 23.8.2008, 19:35

Цитата(AndreyZ53 @ 23.8.2008, 19:18

)

не запускается даже Opera

Если opera.exe действительно лежит там, где указано - все запускается. Если нет - не запустится. Нужно задать полный путь к Опере.

Добавлено через 3 минуты и 32 секунды
P.S. Как найти путь к Опере - см. здесь: http://forum.vingrad.ru/index.php?showtopic=107476&view=findpost&p=818690

Автор: Rohoss 23.8.2008, 20:34

Цитата(AndreyZ53 @ 23.8.2008, 19:18

)

Вот попробывал, ошибки нету, но ничего не выполняется, не запускается даже Opera

Как не удивительно, но файлы программ не всегда лежат в корне диска «с» smile

, у меня например

Код


 WinExec(pchar('C:\Program Files\Opera\opera.exe http://google.com'), SW_SHOW);

Добавлено @ 20:36
П. С. Не обновлялась страница и не видел последний пост

Автор: AndreyZ53 23.8.2008, 20:54

Я прописал полный путь к опере, и всё равно ничего не запускается даже опера, вот сделал так в TEdit записываю полный путь к опере

Код


Edit1.Text:='"C:\Program Files\Opera\opera.exe"';

А потом уже запускаю из листбокса

Код


WinExec(pChar(Edit1.Text+ListBox1.Items[ListBox1.ItemIndex]), SW_SHOW);

Вот этот метод запускает тока оперу, но ссылку с ListBox не вводит и вот твой метод

Код


WinExec(pchar('"C:\Program Files\Opera\opera.exe"' + ListBox1.Items[ListBox1.ItemIndex]), SW_SHOW);

С твоим методом перепроверил запускает тоже тока оперу но без ссылки

Добавлено @ 20:58

Цитата(Rohoss @ 23.8.2008, 20:34)

Цитата(AndreyZ53 @ 23.8.2008, 19:18

)

Вот попробывал, ошибки нету, но ничего не выполняется, не запускается даже Opera

Как не удивительно, но файлы программ не всегда лежат в корне диска «с» smile

, у меня например

Код


 WinExec(pchar('C:\Program Files\Opera\opera.exe http://google.com'), SW_SHOW);

Добавлено @ 20:36
П. С. Не обновлялась страница и не видел последний пост

Да то что ты написал работает, но мне ненужна не определённая ссылка, а как мне запустить ссылку которые находятся в ListBox, то есть которые выберит пользователь, а у тебя определённая ссылка в опере запускается

Автор: volvo877 23.8.2008, 22:35

Цитата(AndreyZ53 @ 23.8.2008, 20:54

)

Вот этот метод запускает тока оперу, но ссылку с ListBox не вводит и вот твой метод

Как ты думаешь, я после opera.exe (перед ссылкой) просто так поставил пробел? Мне больше делать нечего, как лишние символы печатать, правда?

Автор: AndreyZ53 24.8.2008, 09:27

Цитата(volvo877 @ 23.8.2008, 22:35)

А всё извини, я просто не заметил, спасибо большое

Автор: mnikola2009 7.4.2011, 21:36

Цитата(volvo877 @ 23.8.2008, 18:43)

Так не пробовал:

Код


WinExec(pchar('C:\opera.exe ' + ListBox1.Items[ListBox1.ItemIndex]), SW_SHOW);

Можно еще и так:

Код


ShellExecute(Form1.Handle, nil, pChar('C:\Program Files\Opera\Opera.exe'), pChar('http://google.com'), nil, SW_RESTORE);

Автор: Rohoss 7.4.2011, 21:51

mnikola2009, спасибо smile

. Мы тут три года искали как ещё можно сделать smile

Автор: Akella 8.4.2011, 16:44

Добавлено через 49 секунд
а можно ещё так:

Код

ShellExecute(application.ActiveFormHandle, nil, pChar('C:\Program Files\Opera\Opera.exe'), pChar('http://google.com'), nil, SW_RESTORE);