| Вопрос: Замена, обновление - ресурсов | Добавлено: 27.05.10 06:09 |
Автор вопроса:  LEX1ERS | ICQ: 4204936 |
|
Ай нид ми хелп! Не знаю как использовать API функции для замены ресурсов...
Начало замены - beginupdateresourse сама замена - updateresourse конец замены - endupdateresourse в нэте искал, к сожалению про API функции работы с ресурсами - нету статей. Нашел несколько примеров но они рассчитаны для замены иконок в другом .Ехе приложении. Например я создал string'овый ресурс пусть таковой под номером 101, считыванию его private sub cmd_click() rtb.Text = loadresstring(101) end sub считал, далее я изменил текст в rtb, и хочу его сохранить...Вот тут и ступор... Как это сделать? Спасибо. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 27.05.10 11:58 |
|
Не знаю как использовать API функции для замены ресурсов... и английского тоже не знаешьАй нид ми хелп!
|
||
|
Номер ответа: 2 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 27.05.10 12:00 |
| а зачем ты считываешь его в rtb.Text чтобы сохранить? | ||
|
Номер ответа: 3 Автор ответа: LEX1ERS ICQ: 4204936 Вопросов: 38 Ответов: 100 |
Профиль | | #3 | Добавлено: 28.05.10 06:50 |
|
Да, английского я незнаю..Если бы я знал, то копал бы,в MSDN ...Я ресурс не считываю что бы сохранить, я его считываю для того что бы (допустим) изменить, и только после этого сохранить...
Да хоть по твоему желанию, пусть будет код в процедуре private sub rtb_change() ну дык, как перезаписать существующий ресурс *!в собственной программе? |
||
|
Номер ответа: 4 Автор ответа: LEX1ERSICQ: 4204936 Вопросов: 38 Ответов: 100 |
Профиль | | #4 | Добавлено: 28.05.10 06:50 |
|
Да, английского я незнаю..Если бы я знал, то копал бы,в MSDN ...Я ресурс не считываю что бы сохранить, я его считываю для того что бы (допустим) изменить, и только после этого сохранить...
Да хоть по твоему желанию, пусть будет код в процедуре private sub rtb_change() ну дык, как перезаписать существующий ресурс *!в собственной программе? |
||
|
Номер ответа: 5 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | | #5 | Добавлено: 28.05.10 20:22 |
Копай в MSDN! Там есть в углу такая кнопочка перевода Microsoft Translator. Хоть я и знаю английский, я для простоты перевожу. 
|
||
|
Номер ответа: 6 Автор ответа: LEX1ERSICQ: 4204936 Вопросов: 38 Ответов: 100 |
Профиль | | #6 | Добавлено: 30.05.10 05:10 |
| А подругому, разобраться ни как? | ||
|
Номер ответа: 7 Автор ответа: LEX1ERSICQ: 4204936 Вопросов: 38 Ответов: 100 |
Профиль | | #7 | Добавлено: 30.05.10 05:10 |
| А подругому, разобраться ни как? | ||
|
Номер ответа: 8 Автор ответа: LEX1ERSICQ: 4204936 Вопросов: 38 Ответов: 100 |
Профиль | | #8 | Добавлено: 30.05.10 08:34 |
|
Кстати нашел один код, изменил, но нечего не происходит:
Апи функции beginupdateresourse,updateresourse,endupdateresourse. Private Sub Command1_Click() Call ChangeResource(App.Path + "\" + App.EXEName + ".exe", "String Table", "101", "Text" 
End Sub Private Sub ChangeResource(sPath As String, sType As String, sName As String, sData As String) Dim hUpd As Long Dim res_bt(100) As Byte hUpd = BeginUpdateResource(App.Path + "\" + App.EXEName + ".exe", False) Call UpdateResource(hUpd, sName, sData, 1049, res_bt(0), UBound(res_bt) + vbNull) Call EndUpdateResource(hUpd, 0) End Sub может кто поможет? От кода ресурс не пеняеться, даже хз в чем дело, ошибок нет,функции проходят... |
||
|
Номер ответа: 9 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | | #9 | Добавлено: 31.05.10 11:18 |
|
Offtop: Лень копать? Хочешь готового?
|
||
|
Номер ответа: 10 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | | #10 | Добавлено: 31.05.10 11:19 |
| для кода используй кнопку КОД. | ||
Страница: 1 |