открытие *pdf файла по ссылке

[opel.omega]

ребят большая просьба может есть у кого пример с открытием pdf по ссылке
тоисть нажал кнопочку открылось окошко выбрал фаил и нажал сохранить прога сохроняет ссылку а потом по нажатию открывать этот фаил в ридере и просмотреть
если можете помогите пожалуйста

[NieL]

Сообщение от opel.omega

нажал кнопочку открылось окошко выбрал фаил и нажал сохранить прога сохроняет ссылку а потом по нажатию открывать этот фаил в ридере и просмотреть
если можете помогите пожалуйста

with TOpenDialog.Create(nil) do
  try
    if Execute and (ExtractFileExt(FileName) = '.pdf') then
      ShellExecute(0, 'Open', PChar(FileName), nil, nil, SW_SHOWNORMAL);
  finally
    Free;
  end;

[opel.omega]

а как сделать чтоб он открывал по пути который находится в Едит1

[Квэнди]

ключевая часть примера для вас:
PChar(FileName)
хоть что- то додумайте сами.

[Terran]

а как сделать чтоб он открывал по пути который находится в Едит1

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

Не забываем про
Uses
ShellApi,...

[opel.omega]

всем огромное спасибо разобрался
последний вопрос как записать путь к файлу в Едит2

[Terran]

Возьмите кодеГ, который приводил NieL и в нём вместо строки

ShellExecute(0, 'Open', PChar(FileName), nil, nil, SW_SHOWNORMAL);

Напишите

Edit2.Text:=FileName;

Всё ведь просто.

[opel.omega]

все тема закрыта
всем огромное СПАСИБО!!!

[opel.omega]

ребята возникла проблема пишу код

with TOpenDialog.Create(nil) do
  try
    if Execute and (ExtractFileExt(FileName) = '.pdf') then
    DBEdit6.Text:=FileName;
  finally
    Free;
  end;
end

при сохранении пишет ошибку not in edit or insert mode

[Квэнди]

данная ошибка никакого отношения к теме не имеет. Это ошибка выставления режима в DB компонентах. закрыто.