Как по нажатию на Button открыть документ, выбранный в OpenDialog

[Stranger333]

Мне надо что бы при нажатии на Button1 открывался документ выбраной с помощью OpenDialog1. Вот нашел пример, но только мне надо что бы документ сразу что бы открывался.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
  ShellExecute(Handle, 'open', PChar('rundll32.exe'),
  PChar('shell32.dll,OpenAs_RunDLL ' + Opendialog1.FileName), nil, SW_SHOWNORMAL);
end;

[Pavelok]

может

 ShellExecute(Handle, 'open', PChar('rundll32.exe')

на OnCreate поставить?

[Andrei]

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

Мне надо что бы при нажатии на Button1 открывался документ выбраной с помощью OpenDialog1. Вот нашел пример, но только мне надо что бы документ сразу что бы открывался.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
  ShellExecute(Handle, 'open', PChar('rundll32.exe'),
  PChar('shell32.dll,OpenAs_RunDLL ' + Opendialog1.FileName), nil, SW_SHOWNORMAL);
end;

это делается проще:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
    ShellExecute(Handle, 'open', PChar(Opendialog1.FileName), nil, nil, SW_SHOWNORMAL);
end;

Документ откроется программой, ассоциированной в винде с данным расширением файла. Подробнее по ShellExecute можете глянуть здесь или в хелпе Win32 Programmer's Reference .

[betirsolt]

чтобы выполнялось вот это условие
if Opendialog1.Execute then
ему сначала надо щелкнуть на кнопке и в открывшемся диагологовом окне выбрать документ и нажать кнопку ОК..иначе ниче и не произойдет...а ему по ходу надо чтоб он щелкнул и документ открылся без всяких диалоговых окон

можно просто написать процедуру по нажатию на кнопке

memo1.Lines.LoadFromFile('путь к файлу');

но тут только с txt можно будет работать

[Stranger333]

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

это делается проще:
Документ откроется программой, ассоциированной в винде с данным расширением файла. Подробнее по ShellExecute можете глянуть здесь или в хелпе Win32 Programmer's Reference .

Спасибо, помогло!