VPF::RT_VERSION - Форум программистов

Ak47black

Дата 14.4.2006, 17:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Привет всем.
Рылся по интернету и по форуму и неодного рабочего кода который бы смог выдирнуть и сохранить ресурс версии я ненашол.
Пожалуйста подскажите как это можно осушествить. smile

Snowy

Дата 14.4.2006, 18:08 (ссылка)

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

Загрузка ...

Эксперт

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

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

Значит так искал.
Выдернуть из себя:

Код

var
  rs: TResourceStream;
begin
  try
    rs := TResourceStream.Create(HInstance, '#1', RT_VERSION);
    rs.SaveToFile('C:\rt.ver');
    rs.Free;
  except end;
end;

Для любого файла:

Код


var
  s,b:  string;
  n:    dword;
  fs:   TFileStream;
begin
  S := ParamStr(0);  // имя файла
  n := GetFileVersionInfoSize(PChar(S), n);
  if n > 0 then begin
    SetLength(b, n);
    GetFileVersionInfo(PChar(S), 0, n, pointer(b));
    try
      fs := TFileStream.Create('C:\rt.ver', fmCreate or fmShareDenyWrite);
      fs.Write(b[1], n);
      fs.Free;
    except end;
  end;
end;

_hunter

Дата 14.4.2006, 18:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

http://forum.vingrad.ru/index.php?showtopic=8741

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

Tempora mutantur, et nos mutamur in illis...

Ak47black

Дата 14.4.2006, 18:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

всеровно неполучается. smile

Мне нужна процедура которая выдергивалала 'RT_VERSION' '1' из файла (что-бы потом можно было далише выдернутый ресурс вставить в другой файл.)

_hunter

Дата 14.4.2006, 18:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

что именно нипалучяицца?

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

Tempora mutantur, et nos mutamur in illis...

Ak47black

Дата 14.4.2006, 18:38 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Цитата(_hunter @ 14.4.2006, 18:29)

что именно нипалучяицца?

Написать прогу которая выдергивает.
Пробовал при помоши библиотеки acWorkRes.

Код


SaveFileToDiscW(StringToPWide(Edit3.Text),'VERSION', '1','C:\info');

Но нечего непроисходит.

_hunter

Дата 14.4.2006, 18:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

ключевое слово именно
по вопросам глюков в библиотеке обращайся к разработчикам.

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

Tempora mutantur, et nos mutamur in illis...

Ak47black

Дата 15.4.2006, 12:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Цитата(_hunter @ 14.4.2006, 18:52)

ключевое слово именно
по вопросам глюков в библиотеке обращайся к разработчикам.

Код


h_res := BeginUpdateResource(Pchar(Edit1.Text), False);
rs := TResourceStream.Create(h_res, '1', RT_VERSION);

Выдает следушую ошибку.

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EResNotFound with message 'Resource 1 not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Хотя ресурс в файле 100% присуствует сам проверял при помоши Restorator .что я неправильно делаю?

Это сообщение отредактировал(а) Ak47black - 15.4.2006, 12:32

_hunter

Дата 17.4.2006, 11:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Цитата(Ak47black @ 15.4.2006, 12:31

)

Хотя ресурс в файле 100% присуствует сам проверял при помоши Restorator .что я неправильно делаю?

ты какой ресурс имееш в виду -- "RT_VERSION" или "1"?

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

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 17.4.2006, 11:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ты мои примеры пробовал?
У меня они работают без проблем.

Ak47black

Дата 17.4.2006, 19:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Цитата

Ты мои примеры пробовал?
У меня они работают без проблем.

Со своим приложение то норм работают.
Но у меня неполучается это проделать с чюжими приложениями (тоесть с чюжым exe) наверно Хэндл неправильно наверно нахожу или что тут еше может быть ? smile

Цитата

ты какой ресурс имееш в виду -- "RT_VERSION" или "1"?

Тип='RT_VERSION' Имя ресурса='1'.

Snowy

Дата 18.4.2006, 14:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

Второй код не требует хэндла - требует только имя файла.
Я его прописал ParamStr(0), но можешь заменить на любой другой.

Ak47black

Дата 18.4.2006, 19:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Snowy Спасибо тебе огромное, я сразу непонял.
Жаль тебе репутаю немогу плюсануть.

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