Работа с ShellListView

[Fakov]

Есть код, обработчик события:

procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
if not ShellListView1.Selected:={пусто}  then 
Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

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

Помогите плз)

[rockedit]

Данный пример хорошо описан в книге Библия Delphi Михаил Фленов.

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
//Это директория?
if (ListView1.Selected.SubItems[5] = 'dir') then
begin
//Если да, то прибавить имя выделенной директории к пути
//и перечитать файлы из неё.
Edit1.Text:=Edit1.Text+ListView1.Selected.Caption+'\';
AddFile(Edit1.Text+'*.*',faAnyFile)
end
else
//Если нет, то это файл и я его запускаю.
ShellExecute(Application.MainForm.Handle, nil,
PChar(Edit1.Text+ListView1.Selected.Caption), '',
PChar(Edit1.Text), SW_SHOW);
end;

"Глава - простой файловый менеджер"

[Fakov]

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
//Это директория?
if (ListView1.Selected.SubItems[5] = 'dir')

Тут описывается для ListView просто, а у меня ShellListView. В результате на данный код:

procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
  if not (ShellListView1.Selected.SubItems[5]:='dir') then (эту строчку выделяет красным и курсор ставиться после then)
  Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

Компилятор выводит ошибку: "Unit "ShellCtrls" is specific to a platform".
В чем проблема? 0_о

[mihali4]

Это не ошибка, простое предупреждение.
Не путайте ERROR c WARNING.
WARNING не мешает.
А отключается в свойствах проекта - Compiler Messages.

[Fakov]

Это не ошибка, простое предупреждение.
Не путайте ERROR c WARNING.

Да, сорри, мой фейл. ошибка на ту строку такая: "Incompatible types: "TString" and "String""

[mihali4]

Уберите двоеточие в сравнении...

[Fakov]

 procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
 if  ShellListView1.Selected.SubItems = 'dir'  then
 Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

Тут на ту же строчку выводит ошибку, мол Несовместимы типы "String" и "TString".

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

[mihali4]

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

Тут на ту же строчку выводит ошибку, мол Несовместимы типы "String" и "TString".

Неправильно вы ошибку указываете...
"String" и "TStrings"
Потому что ShellListView1.Selected.SubItems - это набор строк (TStrings).
И вы сравниваете набор с одной строкой.
Правильнее было бы тогда уж что-то вроде:

if ShellListView1.Selected.SubItems.Strings[1]<>'Папка с файлами' then