Вывести версию файла в Label

[artemavd]

Я виноват, да, он работает. Это просто я неправильно указал путь к файлу. Нужно было так:

procedure TForm1.ShellListView1Click(Sender: TObject);
var
 attr: integer;
 fileattrib,dr: string;
begin
  attr:=FileGetAttr(Form1.ShellListView1.Folders[Form1.ShellListView1.ItemIndex].PathName);
 if (attr and faHidden) <> 0 then fileattrib:='Скрытый';
 if (attr and faReadOnly) <> 0 then fileattrib:=fileattrib + '' + ' Только чтение ';
 if (attr and faSysFile) <> 0 then fileattrib:=fileattrib + '' + ' Системный ';
 if (attr and faArchive) <> 0 then fileattrib:=fileattrib + '' + ' Архивный ';
   Form1.Label12.Caption:=fileattrib;
end;