Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Замена ресурсов в файле (?)


Автор: MaDCoD 3.2.2007, 16:34
Вобщем судь проблемы:
у меня есть файл exe/dll в нем есть ресурс типа Dialog, я его экспортировал в файл (именно один диалог, не в rc и не в res  а прото в файл например 1.123), предварительно исправил его (например в названии дописал цифру - чтобы были отличия smile ), пробую заменить вот этим способом:
Код
function AddResource(FileName, ResName: string; Buf: pointer; Size: integer): integer;
var
  Hnd: THandle;
begin
  Hnd := BeginUpdateResource(PChar(FileName), false);
  if Hnd=0 then begin
    result := GetLastError; Exit;
  end;
  if UpdateResource(Hnd, RT_DIALOG, PChar(ResName), 1049, Buf, Size) then
    result := 0
  else result := GetLastError;
  EndUpdateResource(Hnd, (result<>0));
end;

function AddFileToExe(ExeName, FileName, ResName: string): boolean;
var
  fs: TFileStream;
  b:  pointer;
begin
  try
    fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    GetMem(b, fs.Size);
    fs.Read(b^, fs.Size);
    result := AddResource(ExeName, ResName, b, fs.Size)=0;
    fs.Free;
    FreeMem(b);
  except
    result := false;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
{* Пример использования.}
begin
  if AddFileToExe('C:\1.exe','C:\1.123', '1234') then
    ShowMessage('Готово')
  else ShowMessage('Не получилось');
end;

в итоге получаю в разделе диалогов, при просмотре любыми программами для работы с ресурсами, ДВА одинаковых ресурса с именами '1234' причём с одинаковым языком 1049 (аналогично все остальны языки), пробовал использоваль модуль Alex'а, получаются два раздела Dialog опять же с одинаковыми ресурсами ( чего по идее быть не может), так же пробовал использовать функцию UpdateResourceW (работает аналогично модулю Алекса, результ такой же).. удалять ресурсы получается опять же ТОЛЬКО свои т.е. тот который был создан мной удаляется, а тот который уже был в exe остаётся всегда.. ехешник нормальный др прогами ресурсы меняются и удаляются, так вот вопрос как же всё таки сменить/удалить ресурс на Delphi?

ps/ ещё почемуто размер файла не меняется при добавлении моих ресурсов, если что не понятно спрашивайте)

Автор: W4FhLF 3.2.2007, 17:27
Весьма странно, может быть это поможет(выдрал из MSDN, сравни со своим):

Цитата

Updating Resources
The following example copies a dialog box resource from one executable file, Hand.exe, to another, Foot.exe, by following these steps: 

Use the LoadLibrary function to load the executable file Hand.exe. 
Use the FindResource and LoadResource functions to locate and load the dialog box resource. 
Use the LockResource function to retrieve a pointer to the dialog box resource data. 
Use the BeginUpdateResource function to open an update handle to Foot.exe. 
Use the UpdateResource function to copy the dialog box resource from Hand.exe to Foot.exe. 
Use the EndUpdateResource function to complete the update. 
The following code implements these steps.

Код

HRSRC hResLoad;     // handle to loaded resource 
HANDLE hExe;        // handle to existing .EXE file 
HRSRC hRes;         // handle/ptr. to res. info. in hExe 
HANDLE hUpdateRes;  // update resource handle 
char *lpResLock;    // pointer to resource data 
BOOL result; 
// Load the .EXE file that contains the dialog box you want to copy. 
hExe = LoadLibrary("hand.exe"); 
if (hExe == NULL) 

    ErrorHandler("Could not load exe."); 

 
// Locate the dialog box resource in the .EXE file. 
hRes = FindResource(hExe, "AboutBox", RT_DIALOG); 
if (hRes == NULL) 

    ErrorHandler("Could not locate dialog box."); 

 
// Load the dialog box into global memory. 
hResLoad = LoadResource(hExe, hRes); 
if (hResLoad == NULL) 

    ErrorHandler("Could not load dialog box."); 

 
// Lock the dialog box into global memory. 
lpResLock = LockResource(hResLoad); 
if (lpResLock == NULL) 

    ErrorHandler("Could not lock dialog box."); 

 
// Open the file to which you want to add the dialog box resource. 
hUpdateRes = BeginUpdateResource("foot.exe", FALSE); 
if (hUpdateRes == NULL) 

    ErrorHandler("Could not open file for writing."); 

 
// Add the dialog box resource to the update list. 
result = UpdateResource(hUpdateRes,       // update resource handle 
     RT_DIALOG,                   // change dialog box resource 
     "AboutBox",                  // dialog box name 
     MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),  // neutral language
     lpResLock,                   // ptr to resource info 
     SizeofResource(hExe, hRes)); // size of resource info. 
if (result == FALSE) 

    ErrorHandler("Could not add resource."); 

 
// Write changes to FOOT.EXE and then close it. 
if (!EndUpdateResource(hUpdateRes, FALSE)) 

    ErrorHandler("Could not write changes to file."); 

 
// Clean up. 
if (!FreeLibrary(hExe)) 

    ErrorHandler("Could not free executable."); 




Автор: MaDCoD 3.2.2007, 18:38
В принцыпе делаю в своём коде тоже сакмое, но без поиска ресурса, тк. в файле только он и есть.. знакомый говорил что ресурсы могут записаться с одинаковыми именами, если у них разный язык: MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL), тут я записываю 1049 для русского и 1033 для английского (словами тоже пробовал, результат одинаковый), поэтому даже непонятно почеиу два одинаковых ресурса существуют одновременно, причём мой, который я вставил нисколько на размер файла не повлиял, однако я могу его экспортировать, так же как любой норм ресурс в файл/res/rc..

Автор: MaDCoD 7.2.2007, 19:37
Вообщем, немного подкоректировал код, теперь меняет ресурсы (как A так и W функцией).. Но у меня вопрос почему при замене размер файла _УМЕНЬШАЕТСЯ_ ? причём в моём ресурсе присутствуют лишние элементы (кнопка например), которых не было в исходной программе? это в dll происходит, пробовал менять ресурсы в др.  - ехе-файле, там размер не поменялся ни в больше ни в меньше, отсюда опять вопрос:

Как сделать чтоб размер в dll не менялся и посему он меняется в меньшую сторону?

Автор: W4FhLF 8.2.2007, 13:58
Цитата(MaDCoD @  7.2.2007,  19:37 Найти цитируемый пост)
Как сделать чтоб размер в dll не менялся и посему он меняется в меньшую сторону?


Про PE формат и в частности выравнивание внутри файла слышали? Судя по-всему нетsmile Не хочешь менять размер - пиши свои функции работы с таблицей ресурсов или тупо дописывай в конец файла то кол-во нулей, которого нехватает для достижения первоначального размера. 

Автор: MaDCoD 8.2.2007, 17:52
спс, буду изучать PE))
вопрос исчерпан, закрывайте)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)