Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Июл

открытие pdf файла в Delphi

Posted by admin under Delphi, Архив, Топик-обзор

opel.omega:

есть у кого пример с открытием pdf по ссылке

NieL:



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;

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

Terran;



Procedure TForm1.Button1Click(Sender: TObject);

Begin

ShellExecute(0, 'Open', PChar(Edit1.Text), nil, nil, SW_SHOWNORMAL);

End;

Пост написан при поддержке major auto, продажа и обслуживание опель

Подробнее в теме на форуме открытие *pdf файла по ссылке.

Так же по теме поста;
mihali4:

А ShellExecute чем-то не устраивает?
Примеры:
// Запуск файла
ShellExecute(Handle, nil, ‘c:\windowscalc.exe’, nil, nil, SW_SHOW);

// Просмотр каталога
ShellExecute(Handle, nil, ‘c:\windows’, nil, nil, SW_SHOW);

// Открытие сайта в браузере
ShellExecute(Handle, nil, ‘http://www.site.ru’, nil, nil, SW_SHOW);

// Посылка E-mail
ShellExecute(Handle, nil, ‘mailto:DelphiWorld@mail.ru’, nil, nil, SW_SHOW);

//Открытие текстового файла
ShellExecute(Handle, nil, ‘c:\a.txt’, nil, nil, SW_SHOW);

открытие файла в delphi

и не забудьте в Uses добавить модуль ShellApi.

И учитесь искать в гугле по форуму — открытие файла Delphi site:programmersforum.ru