Открыть файл

urusvati

На форме находятся Edit1 и Button1. В текстовой строке Edit1 прописан адрес: "D:\Bibliothek\001.pdf" Как написать код для кнопки, чтобы при нажатии её открывался нужный файл по адресу, который стоит в Edit1? Помогите пожалуйста!
4 ответа

urusvati

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
 str:= Edit1.Text;
 ShellExecute(Handle,
  'open', PChar(str), nil, nil, SW_SHOWNORMAL);
end;
не забудь uses ShellAPI


urusvati

procedure TForm1.Button1Click(Sender: TObject);
Var
file:PAnsiChar;
begin
file:=Edit1.Text;
WinExec(file,SW_SHOW);
end;
Спасибо если помог!!!


urusvati

1. Какого именно типа файлы будут открываться? 2. Правильнее использовать не Edit1 и Button1, а Opendialog+Button1. 3. Если *.pdf, то проще всего взять компонент, который будет открывать этого типы файлы, или открывать во внешнем приложении, например Adobe Reader Internet Explorer\Firefox\Chrome...т.д. Опишите точнее задачу


urusvati

1. Какого именно типа файлы будут открываться? 2. Правильнее использовать не Edit1 и Button1, а Opendialog+Button1. 3. Если *.pdf, то проще всего взять компонент, который будет открывать этого типы файлы, или открывать во внешнем приложении, например Adobe Reader Internet Explorer\Firefox\Chrome...т.д. Опишите точнее задачу
Пусть они открываются своими программами (pdf -Adobe Reader, таблицы - Excel и т.д.). Мне важно сделать в своем приложении для базы данных быстрое нахождение файлов любых типов.