Открыть файл через ListBox

[grom333]

Не могу найти кода как при нажатии на пункт в листбоксе открывался файл. Нашел только как сохранить, добавить, загрузить, а вот открыть не могу. И еще, можно ли убрать диалог вылетающий при нажатии открывания файла. В котором пишется, что вы точно уверены что хотите открыть файл. Этот файл может быть вирусом ....

[Terran]

Не могу найти кода как при нажатии на пункт в листбоксе открывался файл. Нашел только как сохранить, добавить, загрузить, а вот открыть не могу.

Uses
   ShellApi;
Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open',PChar(ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);
End;