Chief-NET

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Chief-NET » Паскаль в среде Borland Delphi » Delphi и ссылки...


Delphi и ссылки...

Сообщений 1 страница 2 из 2

1

Здравствуйте, люди!!!

Помогите мне пожалуйста в одном вопросе... Сам я что-то не догоняю...

Дело вот в чём:

Есть у меня текстовой файл link.txt такого вида:

Сайт перевода приставочных игр GUYVERперевод
http://guyverperevod.narod.ru

Сайт о творчестве Когодовского О.А.
http://veroh.narod.ru

Синегорский сайт Хорева М.И.
http://sinegorie-horev.narod.ru

и т.д.

Есть на форме компонент ListBox1, в который я всё это загружаю:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('link.txt');
end;

Теперь в ListBox1 у меня появился текст, и мне надо, что бы при
нажатии мышкой на ссылку, происходила загрузка этой ссылки через
интернет Эксплорер, делаю я это примерно так:

procedure TForm1.ListBox1Click(Sender: TObject);
var n: String;
i: Integer;
  begin
   for i:= 0 to ListBox1.Items.Count-1 do
   if  ListBox1.Selected[i] then
   n := ListBox1.Items[i];   - вот тут я не могу присвоить n текст выделенного поля ListBox1...
ShellExecute(Application.Handle,'open',n,nil,nil,0);
end;

Конечно же всё это не работает, так как я не представляю, как
получить в переменную текст того поля, по которому я кликаю в
ListBox1, а потом подставить эту переменную в ShellExecute для
открытия ссылки...

Помогите мне пожалуйста!!!

2

Спасибо всем, я это СДЕЛАЛ!!!

Вот код - может кому-нить пригодится:

procedure TForm1.ListBox1Click(Sender: TObject);
var n: String;
i: Integer;
begin
for i:= 0 to ListBox1.Items.Count-1 do
if  ListBox1.Selected[i] then
n := ListBox1.Items[ListBox1.ItemIndex];
if n <> '' then
if z <> 1 then
ShellExecute(GetDesktopWindow(), 'open', PChar(n), nil, nil, SW_SHOW);


Вы здесь » Chief-NET » Паскаль в среде Borland Delphi » Delphi и ссылки...