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

[artemavd]

Неужели это такие секретные функции, что про них никто не знает?

[BOBAH13]

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

Там регистрировать нужно. Мне нужно, чтобы я мог получить ту информацию, которая во вложении). Вот что мне нужно получать и выводить в Lable, например.

Извините, но где на изображении выводится "версия файла" ? Если надо иметь то что отображено на изображении смотреть функцию SHGetFileInfo

[artemavd]

Я посмотрел, но ничего понятного по ней не нашел. Где можно посмотреть на примеры ее использования?

[Noor]

Тут отписался
http://programmersforum.ru/showpost....76&postcount=9
Относительно определния ко-ва папок в каталоге, смотри тут
http://www.sql.ru/forum/actualthread...=20&tid=723690
( в самом конце есть процедура, переделай од себя)
Узнать атрибуты файла\папки можно так

procedure TForm1.Button2Click(Sender: TObject);
var
  attr: Integer;
  fileattrib: string;
begin
  attr := FileGetAttr('Тут указываем папку или путь к файлу');
  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 + 'Архивный  ';
  Label2.Caption := fileattrib;
end;

20:53

Ну как определить путь папки думаю сам сделаешь.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[BOBAH13]

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

Я посмотрел, но ничего понятного по ней не нашел. Где можно посмотреть на примеры ее использования?

MSDN закрыли ?

[FelixKoT]

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

Вы дали ссылку на страницу LivePage, там требуют для скачивания зарегистрироваться в этой поганой соц.сети. Вот о какой регистрации идет речь.
Если у вас есть этот набор - выложите его на форуме.

http://depositfiles.com/files/t39qblrth извините что депозит, зато без регистрации

[mihali4]

Лучше на айфолдер - там без ограничений, а партнерские такие же...

З.Ы. Тут подсказка из сходной темы:
http://delphiworld.narod.ru/base/get_app_version.html

[FelixKoT]

Нашёл версию совместимую с Embarcadero RAD Studio 2009\2010 (Поддержка C++ builder удалена):
http://ifolder.ru/15874287

[artemavd]

Что-то не работает код, который предложил Пепел Феникса . Переделал его под себя так:

procedure TForm1.ShellListView1Click(Sender: TObject);
var
 attr: integer;
 fileattrib: string;
begin
 Form1.StatusBar2.Panels[1].Text:='Путь к файлу: ' + Form1.ShellListView1.Folders[Form1.ShellListView1.ItemIndex].PathName;
 attr:=FileGetAttr(Form1.StatusBar2.Panels[1].Text);
 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;

В результате в Form1.Label12.Caption выводится это: Только чтениеСкрытыйАрхивный. Какой бы файл я не выбрал. Что тут не так?

[FelixKoT]

artemavd, у меня этот код нормально работает..