Открытии Opera

[blackstersl]

Привет всем у меня вопрос как сделать так чтоб при нажатии на кнопку открывалась страница в опере или firefox например programmersforum.ru. заранее всем спасибо!

[KiDoki]

ShellExecute(handle, 'open', 'ссылка', nil, nil, SW_SHOW);

Ссылка откроется в браузере по умолчанию.

[blackstersl]

чет оно нечё не открывает! Только ошибки выбивает. Не могу понять причём тут Listbox?

[KiDoki]

Попробуйте сейчас, с утра ещё сплю. =)

[blackstersl]

Конечно извеняюсь, но я не понял что нужно попробовать?

[Terran]

Не могу понять причём тут Listbox?

Из Listbox берётся ссылка к примеру (http://programmersforum.ru).
И у KiDoki есть небольшая ошибка в первом коде. Надо написать так:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
ShellExecute(handle, 'open', pchar(ListBox1.Items.Strings[ListBox1.ItemIndex]), nil, nil, SW_SHOW);
end;

Не забываем про Shellapi.

[blackstersl]

А без Listboxa некак нельзя обойтись?

[blackstersl]

я конечно извеняюсь но мне нужно чтоб при нажатии на button, а не на listbox, opera открывалась!

[Terran]

Сообщение от blackstersl

А без Listboxa некак нельзя обойтись?

Конечно можно. Можно запускать на прямую:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShellExecute(Handle, 'Open','http://programmersforum.ru' , nil, nil, SW_SHOW);
End;

Или допустим с Edit'a:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShellExecute(Handle, 'Open',PChar(Edit1.Text) , nil, nil, SW_SHOW);
End;

У меня на shellexecute ошибка выбивает!

Uses
Shellapi,...

[KiDoki]

Вопрос был про открытие ссылки при нажатии на кнопку.
Я поставил код с ЛистБоксом случайно. Для кнопки:
Ставим на событие онклик следующий код:

ShellExecute(handle, 'open', 'ссылка', nil, nil, SW_SHOW);

Где ссылка - ссылка которую нужно открыть.