VPF::Замена ресурсов в файле (?) - Форум программистов

MaDCoD

Дата 3.2.2007, 16:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Вобщем судь проблемы:
у меня есть файл 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 (ссылка)

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

Загрузка ...

found myself

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

Репутация: 6
Всего: 121

Весьма странно, может быть это поможет(выдрал из 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 (ссылка)

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

Загрузка ...

Новичок

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

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

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

MaDCoD

Дата 7.2.2007, 19:37 (ссылка)

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

Загрузка ...

Новичок

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

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

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

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

W4FhLF

Дата 8.2.2007, 13:58 (ссылка)

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

Загрузка ...

found myself

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

Репутация: 6
Всего: 121

Цитата(MaDCoD @ 7.2.2007, 19:37

)

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

Про PE формат и в частности выравнивание внутри файла слышали? Судя по-всему нет smile

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

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

MaDCoD

Дата 8.2.2007, 17:52 (ссылка)

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

Загрузка ...

Новичок

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

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

спс, буду изучать PE))
вопрос исчерпан, закрывайте)

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