Сейчас на форуме: bartolomeo, vasilevradislav, rmn, Magister Yoda (+7 невидимых)

 eXeL@B —› Программирование —› Работа с ресурсами PE-exe
Посл.ответ Сообщение

Ранг: 11.1 (новичок)
Активность: 0=0
Статус: Участник

 Создано: 11 декабря 2008 17:33
· Личное сообщение · #1

Просвятите плз, каким макаром программно можно заменять ресурсы существующего ехе-шника. Интересует, в первую очередь, значок и строки. Желательно Delphi.



Ранг: 28.7 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 11 декабря 2008 17:47
· Личное сообщение · #2

С помощью программ: Resource Tuner, Restorator, Resource_Hacker.
Строки - там же,либо в Ольке: Search for->All referenced text strings.




Ранг: 81.7 (постоянный), 10thx
Активность: 0.03↘0
Статус: Участник

 Создано: 11 декабря 2008 18:00
· Личное сообщение · #3

Автор видимо сорсы подобного ищет




Ранг: 68.0 (постоянный), 6thx
Активность: 0.06↘0
Статус: Участник

 Создано: 11 декабря 2008 18:17
· Личное сообщение · #4

www.delphisources.ru/forum/showthread.php?p=3648



Ранг: 251.3 (наставник), 81thx
Активность: 0.14↘0.11
Статус: Участник

 Создано: 11 декабря 2008 18:36
· Личное сообщение · #5

WinAPI UpdateResource(), а там хоть на ассемблере пиши
msdn.microsoft.com/en-us/library/ms648008(VS.85).aspx



Ранг: 11.1 (новичок)
Активность: 0=0
Статус: Участник

 Создано: 11 декабря 2008 19:01 · Поправил: mindkeeper
· Личное сообщение · #6

Большое спасибо.
Ray, мне нужно именно самостоятельно и программно (AVE прав), не буду вдаваться в подробности почему.
cppasm Сначала попробую эту DLL по ссылке, которую Dr3d дал. Там в форуме есть указание автора, что почему то эта ф-я API отказывалась работать у него из dephi, поэтому он на сях сделал, а из delphi просто вызывал.
О результате отпишусь, мало ли, кому еще пригодится.



Ранг: 11.1 (новичок)
Активность: 0=0
Статус: Участник

 Создано: 12 декабря 2008 00:19 · Поправил: mindkeeper
· Личное сообщение · #7

Получилось просто отлично, таки пошел по пути самостоятельного внедрения UpdateResource и всего, что к нему причитается. Вобще с ресурсами раньше особо не работал, максимум читал курсоры и строки, а тут оказалось все так просто, правда немного пришлось догадываться что к чему. По итогу: у меня в ресурсах одного EXE сидит другой, и целая куча ресурсов к нему на выбор пользователя... экстрактится "внутренний" EXE (я кго еще и упаковал для экономии места), к нему пришиваются необходимые MAINICON, RCDATA. Вот примерчик замены ресурсов из моей тупенькой прожки:
Code:
  1. procedure UpdateIcons(const FileName, IcoFileName: String);
  2. type
  3.   PIcoItemHeader = ^TIcoItemHeader;
  4.   TIcoItemHeader = packed record
  5.     Width: Byte;
  6.     Height: Byte;
  7.     Colors: Byte;
  8.     Reserved: Byte;
  9.     Planes: Word;
  10.     BitCount: Word;
  11.     ImageSize: DWORD;
  12.   end;
  13.   PIcoItem = ^TIcoItem;
  14.   TIcoItem = packed record
  15.     Header: TIcoItemHeader;
  16.     Offset: DWORD;
  17.   end;
  18.   PIcoHeader = ^TIcoHeader;
  19.   TIcoHeader = packed record
  20.     Reserved: Word;
  21.     Typ: Word;
  22.     ItemCount: Word;
  23.     Items: array [0..MaxInt shr 4 - 1] of TIcoItem;
  24.   end;
  25.   PGroupIconDirItem = ^TGroupIconDirItem;
  26.   TGroupIconDirItem = packed record
  27.     Header: TIcoItemHeader;
  28.     Id: Word;
  29.   end;
  30.   PGroupIconDir = ^TGroupIconDir;
  31.   TGroupIconDir = packed record
  32.     Reserved: Word;
  33.     Typ: Word;
  34.     ItemCount: Word;
  35.     Items: array [0..MaxInt shr 4 - 1] of TGroupIconDirItem;
  36.   end;
  38.   function IsValidIcon(P: Pointer; Size: Cardinal): Boolean;
  39.   var
  40.     ItemCount: Cardinal;
  41.   begin
  42.     Result := False;
  43.     if Size < Cardinal(SizeOf(Word) * 3) then
  44.       Exit;
  45.     if (PChar(P)[0] = 'M') and (PChar(P)[1] = 'Z') then
  46.       Exit;
  47.     ItemCount := PIcoHeader(P).ItemCount;
  48.     if Size < Cardinal((SizeOf(Word) * 3) + (ItemCount * SizeOf(TIcoItem))) then
  49.       Exit;
  50.     P := @PIcoHeader(P).Items;
  51.     while ItemCount > Cardinal(0) do begin
  52.       if (Cardinal(PIcoItem(P).Offset + PIcoItem(P).Header.ImageSize) < Cardinal(PIcoItem(P).Offset)) or
  53.         (Cardinal(PIcoItem(P).Offset + PIcoItem(P).Header.ImageSize) > Cardinal(Size)) then
  54.         Exit;
  55.       Inc(PIcoItem(P));
  56.       Dec(ItemCount);
  57.     end;
  58.     Result := True;
  59.   end;
  61. var
  62.   H: THandle;
  63.   M: HMODULE;
  64.   R: HRSRC;
  65.   Res: HGLOBAL;
  66.   GroupIconDir, NewGroupIconDir: PGroupIconDir;
  67.   I: Integer;
  68.   wLanguage: Word;
  69.   FS:TFileStream;
  70.   Ico: PIcoHeader;
  71.   N: Cardinal;
  72.   NewGroupIconDirSize: LongInt;
  73. begin
  74.   if Win32Platform <> VER_PLATFORM_WIN32_NT then
  75.     ShowMessage('Only supported on Windows NT and above');
  77.   Ico := nil;
  79.   try
  80.     { Load the icons }
  81.     fs:=TFileStream.Create(IcoFileName,fmOpenRead,fmShareDenyWrite);
  82.     try
  83.       N:=fs.Size;
  84.       if Cardinal(N) > Cardinal($100000) then  { sanity check }
  85.         ShowMessage('Icon file is too large');
  86.       GetMem(Ico, N);
  87.       fs.Read(Ico^,N);
  88.     finally
  89.         fs.Free;
  90.     end;
  92.     { Ensure the icon is valid }
  93.     if not IsValidIcon(Ico, N) then
  94.       ShowMessage('Icon file is invalid');
  96.     { Update the resources }
  97.     H := BeginUpdateResource(PChar(FileName), False);
  98.     if H = 0 then
  99.       ShowMessage('BeginUpdateResource failed (1)');
  100.     try
  101.       M := LoadLibraryEx(PChar(FileName), 0, LOAD_LIBRARY_AS_DATAFILE);
  102.       if M = 0 then
  103.         ShowMessage('LoadLibraryEx failed (1)');
  104.       try
  105.         { Load the 'MAINICON' group icon resource }
  106.         R := FindResource(M, 'MAINICON', RT_GROUP_ICON);
  107.         if R = 0 then
  108.           ShowMessage('FindResource failed (1)');
  109.         Res := LoadResource(M, R);
  110.         if Res = 0 then
  111.           ShowMessage('LoadResource failed (1)');
  112.         GroupIconDir := LockResource(Res);
  113.         if GroupIconDir = nil then
  114.           ShowMessage('LockResource failed (1)');
  116.         { Delete 'MAINICON' }
  117.         wLanguage:=GetSystemDefaultLangID;
  118.         //if not GetResourceLanguage(M, RT_GROUP_ICON, 'MAINICON', wLanguage) then
  119.         //  Error('GetResourceLanguage failed (1)');
  120.         if not UpdateResource(H, RT_GROUP_ICON, 'MAINICON', wLanguage, nil, 0) then
  121.           ShowMessage('UpdateResource failed (1)');
  123.         { Delete the RT_ICON icon resources that belonged to 'MAINICON' }
  124.         for I := 0 to GroupIconDir.ItemCount-1 do begin
  125.           wLanguage:=GetSystemDefaultLangID;
  126.           if not UpdateResource(H, RT_ICON, MakeIntResource(GroupIconDir.Items[I].Id), wLanguage, nil, 0) then
  127.             ShowMessage('UpdateResource failed (2)');
  128.         end;
  130.         { Build the new group icon resource }
  131.         NewGroupIconDirSize := 3*SizeOf(Word)+Ico.ItemCount*SizeOf(TGroupIconDirItem);
  132.         GetMem(NewGroupIconDir, NewGroupIconDirSize);
  133.         try
  134.           { Build the new group icon resource }
  135.           NewGroupIconDir.Reserved := GroupIconDir.Reserved;
  136.           NewGroupIconDir.Typ := GroupIconDir.Typ;
  137.           NewGroupIconDir.ItemCount := Ico.ItemCount;
  138.           for I := 0 to NewGroupIconDir.ItemCount-1 do begin
  139.             NewGroupIconDir.Items[I].Header := Ico.Items[I].Header;
  140.             NewGroupIconDir.Items[I].Id := I+1; //assumes that there aren't any icons left
  141.           end;
  143.           { Update 'MAINICON' }
  144.           for I := 0 to NewGroupIconDir.ItemCount-1 do
  145.             if not UpdateResource(H, RT_ICON, MakeIntResource(NewGroupIconDir.Items[I].Id), 1033, Pointer(DWORD(Ico) + Ico.Items[I].Offset), Ico.Items[I].Header.ImageSize) then
  146.               ShowMessage('UpdateResource failed (3)');
  148.           { Update the icons }
  149.           if not UpdateResource(H, RT_GROUP_ICON, 'MAINICON', 1033, NewGroupIconDir, NewGroupIconDirSize) then
  150.             ShowMessage('UpdateResource failed (4)');
  151.           {### myURL ###}
  152.           if not UpdateResource(H,RT_RCDATA,'URL',wLanguage,addr(ch),1024) then
  153.             ShowMessage('Fck... cannot write URL');
  154.         finally
  155.           FreeMem(NewGroupIconDir);
  156.         end;
  157.       finally
  158.         FreeLibrary(M);
  159.       end;
  160.     except
  161.       EndUpdateResource(H, True); { discard changes }
  162.       raise;
  163.     end;
  164.     if not EndUpdateResource(H, False) then
  165.       ShowMessage('EndUpdateResource failed');
  166.   finally
  167.     FreeMem(Ico);
  168.   end;
  169. end;


Ранг: 748.2 (! !), 390thx
Активность: 0.37↘0
Статус: Участник
bytecode!

 Создано: 12 декабря 2008 04:22 · Поправил: 4kusNick
· Личное сообщение · #8

Я как-то на сях для себя либу написал для работы с ресурсами и юзаю ее наздоровье откуда угодно, в том числе из-под делфи.

Code:
  1. // ResDll.cpp : Defines the entry point for the DLL application.
  2. //
  4. #include "stdafx.h"
  5. #define WINAPI __stdcall
  7. BOOL APIENTRY DllMain( HANDLE hModule, 
  8.                        DWORD  ul_reason_for_call, 
  9.                        LPVOID lpReserved
  10.                                     )
  11. {
  12.          return TRUE;
  13. }
  15. bool WINAPI ReplaceResource(PCHAR sSource,PCHAR sDest,PCHAR sType,PCHAR sName)
  16. {
  17.          // Переменные для чтения и добавления ресурса
  18.          HANDLE hFile;
  19.          DWORD dwFileSize,      
  20.                  dwBytesRead;
  21.          LPBYTE lpBuffer;
  23.          // Открываем файл для дальнейшего чтения
  24.          hFile = CreateFile(sSource,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NO RMAL,NULL);
  25.          // Если открыть не удалось, то выходим
  26.          if(hFile == INVALID_HANDLE_VALUE) return FALSE;
  27.          // Сохраняем его размер
  28.          dwFileSize = GetFileSize(hFile, NULL);
  29.          // Если не удалось получить размер, то выходим
  30.          if(dwFileSize <= NULL)
  31.          {
  32.                  // Закрываем хендл файла
  33.                  CloseHandle(hFile);
  34.                  return FALSE;
  35.          }
  37.          // Создаём массив для чтения файла
  38.          lpBuffer = new BYTE[dwFileSize];
  40.          if (ReadFile(hFile,lpBuffer,dwFileSize,&dwBytesRead,NULL) != FALSE)
  41.          {
  42.                  HANDLE hResource;
  44.                  hResource = BeginUpdateResource(sDest,FALSE);
  45.                  if (NULL != hResource)
  46.                  {
  47.                         if (UpdateResource(hResource,sType,sName,0,(LPVOID)lpBuffer,dwFileSize)!= FALSE)
  48.                         {
  49.                               EndUpdateResource(hResource, FALSE);
  50.                         }
  51.                  }
  52.          }
  53.          delete [] lpBuffer;
  54.          CloseHandle(hFile);
  55.          return true;
  56. }


Когда пробовал адаптировать код под делфю - выходило херово, в некоторых случаях бились exeшки, а при юзаньи либы - не былись, так и забил переписывать под паскаль.

-----
Флэш, ява, дотнет - на завтрак, обед и ужин. Unity3D на закуску.

Ранг: 11.1 (новичок)
Активность: 0=0
Статус: Участник

 Создано: 12 декабря 2008 10:31
· Личное сообщение · #9

4kusNick пишет:
Я как-то на сях для себя либу написал для работы с ресурсами и юзаю ее наздоровье откуда угодно, в том числе из-под делфи.
...
Когда пробовал адаптировать код под делфю - выходило херово, в некоторых случаях бились exeшки, а при юзаньи либы - не былись, так и забил переписывать под паскаль.
В том-то и дело - цель была сделать все единым exe и в делфях, без дополнительных dll и вобще файлов любого типа. Поэтому все, что надо, включил в свои ресурсы (строго говоря, и эту dll можно было включить, но так хотелось заставить делфи нормально понимать api). А тупо переписывать из исходника на сях в паскаль не так-то просто, приведение типов и структур до нервного тика может довести (убедился, когда пытался самостоятельно в паскале вкрутить Canon SDK - у них то только 1 пример, и то только с использованием Microsoft Foundation Classes...). В общем, формула msdn+google+brain все же действует



Ранг: 101.0 (ветеран), 344thx
Активность: 1.15↘0
Статус: Участник

 Создано: 12 декабря 2008 12:42 · Поправил: progopis
· Личное сообщение · #10

mindkeeper
Здесь сорцы моего любимого редактора (Delphi 2006).
http://www.wilsonc.demon.co.ukd10resourceeditor.htm http://www.wilsonc.demon.co.uk/d10resourceeditor.htm
Из минусов - отсутствует поиск. Из плюсов - побеждает файлы после распаковки, в то время как тот же ResHack сначала хочет чтобы ресурсы пофиксили.

Да, забыл. XN Resource Editor называется.



Ранг: 28.7 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 12 декабря 2008 15:46
· Личное сообщение · #11

progopis
Resource Tuner тоже вполне неплохо справляется с файлами после распаковки.
Но за XN Resource Editor спасибо.Боекомплект пополнен



Ранг: 41.9 (посетитель), 3thx
Активность: 0.04↘0
Статус: Участник

 Создано: 12 декабря 2008 20:07
· Личное сообщение · #12

Меня прёт PE Explorer https://nova-forum.com/topic.cgi?forum=35&topic=2300&glp



Ранг: 11.1 (новичок)
Активность: 0=0
Статус: Участник

 Создано: 17 декабря 2008 11:05
· Личное сообщение · #13

Всем спасибо, закрываю.


 eXeL@B —› Программирование —› Работа с ресурсами PE-exe
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати