Добавление нового ресурса в exe шник

[MVX]

а можно разложить картинку на массив данных? ну что то типа того точка 1 ,координата 1:1 ,цвет такой то,потом записать в копию экзешника а оригинал при закрытии удалить,а при запуске той самой копии построить картинку по данным из массива...........?

[Stilet]

потом записать в копию экзешника

Можно. Но ты не представляешь сколько это геморроя.
Ты нормально обьясни чем БД не угодили то? Че ты в экзешник то полез? Думаешь из него картинку достать труднее чем из БД?

[MVX]

БД лежать отдельным файлом от экзешника.мне этого не надо,нужна картинка упакованная в приложение,с возможностью смены той самой картинки,это не мне надо ,это меня знакомая напрягла......

[Stilet]

это меня знакомая напрягла

Можешь смело сказать своей знакомой что задание а-ля "Напишите пакер" не из легких, и в данном контексте весьма бессмысленное.
Максимум что может тебя спасти это создание копии экзешника и редактирование в нем ресурса картинки. Теоретически это умеет делать функция UpdateResource.
Мне ее побороть не удалось -Ось заругалась на неведомую ошибку (хотя там ничего сложного вроде), если напишешь пример работы с ней выложи - будет интересно.

[RUSt88]

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

простое и быстрое решение))) без мозгодрючения

[*PB*]

UpdateResource.
Мне ее побороть не удалось -Ось заругалась на неведомую ошибку

Я её использовал в одной из прог (на бейсике), меняющей значок в скомпилированой проге.
Всё нормально работало.

[r9m]

Це ещё один начинающий малварщик, век воли не видать и на бабе не лежать. Stilet закрывай.

[Stilet]

поставь подруге делфи

ВО! Я ж грю. К подругам нужно подходить долго и настойчиво. Сделать ее жизнь без себя неудобной ) Поставь Делфи ей, тога она еще не раз позовет тебя к себе поближе )

Stilet закрывай.

Подожди, я сейчас у PB спрошу кой-че, мне тоже интересно посмотреть рабочий пример.

Я её использовал в одной из прог (на бейсике)

Покажи пример, ато у меня ошибка какая-то странная вываливается на вот такой код:

var pc:pchar;h:THandle;
begin
 pc:='123';
 h:=BeginUpdateResource(pchar(ExtractFilePath(ParamStr(0))+'project1.exe'),false);
 if h=NULL then RaiseLastWin32Error;
 if UpdateResource(h,RT_STRING,'1',(LANG_RUSSIAN),pc,length(pc)) then RaiseLastWin32Error;
 EndUpdateResource(h,false);
end;

Мож я чет не совсем то использовал? А в твоем примере вдруг увижу то что у себя не учел.

[*PB*]

Вроде нормально работает, ошибок нет.

File.s=OpenFileRequester("","","Исполняемые файлы (*.exe)|*.exe",0)
 If File
   pc.s="123";
   ; Преобразование строки в юникод
   *Point=AllocateMemory(StringByteLength(pc, #PB_Unicode)+2)
   PokeS(*Point, pc, Len(pc), #PB_Unicode)
   
   h=BeginUpdateResource_(File, #False);
   If h<>#Null
       If UpdateResource_(h,#RT_STRING, 1,#LANG_RUSSIAN, *Point,StringByteLength(pc, #PB_Unicode)+2) = 0
           MessageRequester("", "Ошибка функции UpdateResource", #MB_OK|#MB_ICONERROR)
           End
       EndIf
       
      If EndUpdateResource_(h, #False) <> 0
        MessageRequester("", "Успешное добавление ресурса", #MB_OK|#MB_ICONINFORMATION)
      EndIf
       
   Else
     MessageRequester("", "Ошибка функции BeginUpdateResource", #MB_OK|#MB_ICONERROR)
   EndIf
   
   FreeMemory(*Point)
 EndIf

[Stilet]

Черт его знает... Может от операционки зависит...
Ладно. Тема пожалуй себя исчерпала.