VPF::файлы и их свойства - Форум программистов

Lime

Дата 30.11.2005, 20:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет, всем! помогите пожалуйста со следующим вопросом. У любого файла есть свойства. там прописывается название самого файла, тема, Автор, комментарии и т.д. Каким образом, программно на Delphi6, вытащить эти значения, чтобы например заполнить EditBox-ы диалогового окна? приведите пример, как это сделать, если это возможно.

bartram

Дата 30.11.2005, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

Цитата(Lime @ 30.11.2005, 20:52)

свойства

Согласен есть.

Цитата(Lime @ 30.11.2005, 20:52)

тема, Автор, комментарии и т.д.

Это ты о чём??
Таких свойств у файла НЕТ!!!

--------------------

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

Snowy

Дата 30.11.2005, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Далеко ходить ненадо.
Вот пример из справки Delphi:

Код


procedure TForm1.Button1Click(Sender: TObject);

const
  InfoNum = 10;
  InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
  S: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
begin
  S := Application.ExeName;
  n := GetFileVersionInfoSize(PChar(S), n);
  if n > 0 then
  begin
    Buf := AllocMem(n);
    Memo1.Lines.Add('VersionInfoSize = ' + IntToStr(n));
    GetFileVersionInfo(PChar(S), 0, n, Buf);
    for i := 1 to InfoNum do
      if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]), Pointer(Value), Len) then
        Memo1.Lines.Add(InfoStr[i] + ' = ' + Value);
    FreeMem(Buf, n);
  end
  else
    Memo1.Lines.Add('No version information found');
end;

~FoX~

Дата 2.12.2005, 09:41 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Цитата(bartram @ 30.11.2005, 23:42)

Это ты о чём??

Это он о методанных.
Возбми вордовый док и посмотри свойства - сводка

--------------------

…множественность никогда не следует полагать без необходимости…

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »