[Electronic_Arts]

У меня вот такая проблема
Надо зделать так что бы при клике на LISTBOX-e открывался выбранная страница из списка
Я знаю только один способ запуск веб страницы
ShellExecute(form1.handle, 'iexplorer', 'Названия сайта', nil,nil, sw_restore);
Помогите решить проблему
ЗАРАНИЯ СПОСИБО ЗА ПОМОЩЬ

[Decoding]

Недавно обсуждалась похожая тема - http://www.delphisources.ru/forum/showthread.php?t=741. Посмотри, у тебя будет тот-же принцип.

А если в ListBox находятся адреса сайтов, то все будет еще проще

Код:

ShellExecute( Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL );

[Electronic_Arts]

2 кодик вроде подходит но выдает ощибку
Может знаете от чего это

[Decoding]

Что за ошибка? Покажи, как делаешь... Проверь, адрес должен начинаться с www или http://

[Electronic_Arts]

shellapi
.....
.....
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL );
end;

Но говорит что НЕСРАВНИМЫЙ ТИП "STRING" "PANSICHAR"
Ощибка гдето в этом месте
ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL );

[Decoding]

У меня сработало вот так:

Код:

 
ShellExecute( Form1.Handle, 'open', PChar( ListBox1.Items.Strings[ListBox1.ItemIndex] ), nil, nil, SW_SHOWNORMAL );

[Electronic_Arts]

Всё работает спосибо за помощь

[Aristarh Dark]

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

Но говорит что НЕСРАВНИМЫЙ ТИП "STRING" "PANSICHAR"
Ощибка гдето в этом месте
ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL );

Ну RTFM в конце-то концов, аж плакать хочется

Извиняюсь за флуд.