Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Переименовать производителя проги 
:(
    Опции темы
Delphist
Дата 26.10.2004, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

Репутация: 2
Всего: 3
Цитата(p0s0l @ 26.10.2004, 11:44)
Delphist, выложи или пришли на мыло тот файл, у которого портится инфа о версии...
Потому как у меня всё нормально переименовывется - пробовал файлах на 10...
PS: ты который мой вариант пробовал - первый или второй ? Надо второй...

Пробовал и превый и второй вариант.


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
p0s0l
Дата 26.10.2004, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Delphist, пришли этот файл....


--------------------
С уважением, г-н Посол.
PM   Вверх
Alex
Дата 26.10.2004, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Delphist И мне пришли


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Akella
Дата 25.12.2004, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 36
Всего: 329
Delphist И мне пришли smile
PM MAIL   Вверх
Guest
Дата 16.2.2005, 08:21 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Господа! Это мы поменяли только имя компании-производителя. А как быть со всем остальным? Вызывать ChangeCompany для каждого параметра с изменёнными StringFileInfo и CompanyName?
И ещё - что это за функция PosEx()? У меня выдаем, что такой не знает. Какой модуль подключить?
  Вверх
Vit
Дата 16.2.2005, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(Guest @ 15.2.2005, 23:21)
И ещё - что это за функция PosEx()



Стандартная в Дельфи, может у вас старая версия Дельфи


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Alex
Дата 17.2.2005, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Цитата(Guest @ 16.2.2005, 08:21)
Господа! Это мы поменяли только имя компании-производителя. А как быть со всем остальным? Вызывать ChangeCompany для каждого параметра с изменёнными StringFileInfo и CompanyName?

Если не переписывать полностью функцию то да.


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
madbrain
Дата 26.10.2009, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.10.2009

Репутация: нет
Всего: нет
Таже проблема. Правда я на VB6 пробывал решить.
Файлы прикрепил, до и после.


Код

Private Declare Function BeginUpdateResource Lib "kernel32.dll" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long
Private Declare Function UpdateResource Lib "kernel32.dll" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As Long, ByVal lpName As Long, ByVal wLanguage As Long, ByRef lpData As Any, ByVal cbData As Long) As Long
Private Declare Function EndUpdateResource Lib "kernel32.dll" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long
Private Declare Function GetFileVersionInfoSize Lib "Version.dll" Alias "GetFileVersionInfoSizeA" (ByVal sFile As String, lpLen As Long) As Long
Private Declare Function GetFileVersionInfo Lib "Version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long

Private Const RT_VERSION As Long = 16

Private Sub UPDRES(FName As String)
lVerSize = GetFileVersionInfoSize(FName, lTemp)
ReDim IPData(lVerSize)
Ret = GetFileVersionInfo(FName, 0, lVerSize, IPData(0))

Hndl = BeginUpdateResource(FName, False)
Ret = UpdateResource(Hndl, RT_VERSION, 1, 1033, VarPtr(IPData(0)), UBound(IPData)) 
EndUpdateResource Hndl, False
End Sub

Как видите, ничего не меняю, просто считываю, и записываю инфу обратно. Несмотря на это, ничего не получается. Может подскажете где ошибка?
Чуствую что прийдётся отказатся от UpdateResource, и писать всё ручками.

Это сообщение отредактировал(а) madbrain - 26.10.2009, 11:02

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  UPDRES.rar 4,32 Kb
PM MAIL   Вверх
madbrain
Дата 26.10.2009, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.10.2009

Репутация: нет
Всего: нет
http://support.microsoft.com/kb/833659

У меня WinXP SP3


Цитата("kernel32.dll")

Version language : Русский
      CompanyName    : Корпорация Майкрософт
      FileDescription    : Библиотека клиента Windows NT BASE API
      FileVersion    : 5.1.2600.5512 (xpsp.080413-2111)
      InternalName    : kernel32
      LegalCopyright    : © Корпорация Майкрософт. Все права защищены.
      OriginalFilename    : kernel32
      ProductName    : Операционная система Microsoft® Windows®
      ProductVersion    : 5.1.2600.5512

Creation Date    : 16/04/2008  04:00:00 
Last Modif. Date    : 16/04/2008  04:00:00 
Last Access Date    : 01/01/2002  00:00:00 
FileSize    : 995840 bytes ( 972.500 KB,  0.950 MB ) 
FileVersionInfoSize    : 1876 bytes  
File type    : Dynamic Link Library (0x2) 
Target OS    : Win32 API (Windows NT) (0x40004) 
File/Product version    : 5.1.2600.5512 / 5.1.2600.5512
Language  : Русский (0x419) 
Character Set    : 1200 (ANSI - Unicode (BMP of ISO 10646)) (0x4B0) 
PM MAIL   Вверх
Акакий
Дата 4.3.2010, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 6.7.2009

Репутация: нет
Всего: нет
Так и не решен вопрос, почему вместо изменения CompanyName вся инфа RT_VERSION просто удаляется? Пробовал примеры p0s0l'a и Alex'a - на любых ехе-шниках просто удаляется RT_VERSION и все. Ось WinXP SP2.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0562 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.