Цитата:
|
Сообщение от Alegun
Код:
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[0]),Nil,Nil,SW_SHOW);
end; |
Вот большое спасибо, уже дня 3 с этой засадой сидел, вся работа встала. Благодарю.