09.04.2013, 22:05
|
 |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
|
Сообщение от Corwin13
...условие не подойдет...
|
Так какие праблы
Код:
if FileExists(ListView1.Selected.SubItems[1]) then
ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[1]),Nil,Nil,SW_SHOW)
else
ShowMessage('Файла не существует!' |