Страница: 1 |
Страница: 1 |
Вопрос: Замена, обновление - ресурсов
Добавлено: 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
Номер ответа: 2
Автор ответа:
AWP
ICQ: 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
Автор ответа:
LEX1ERS
ICQ: 4204936
Вопросов: 38
Ответов: 100
Профиль | | #4
Добавлено: 28.05.10 06:50
Да, английского я незнаю..Если бы я знал, то копал бы,в MSDN ...Я ресурс не считываю что бы сохранить, я его считываю для того что бы (допустим) изменить, и только после этого сохранить...
Да хоть по твоему желанию, пусть будет код в процедуре
private sub rtb_change()
ну дык, как перезаписать существующий ресурс *!в собственной программе?
Номер ответа: 5
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #5
Добавлено: 28.05.10 20:22
Копай в MSDN! Там есть в углу такая кнопочка перевода Microsoft Translator. Хоть я и знаю английский, я для простоты перевожу.
Номер ответа: 6
Автор ответа:
LEX1ERS
ICQ: 4204936
Вопросов: 38
Ответов: 100
Профиль | | #6
Добавлено: 30.05.10 05:10
А подругому, разобраться ни как?
Номер ответа: 7
Автор ответа:
LEX1ERS
ICQ: 4204936
Вопросов: 38
Ответов: 100
Профиль | | #7
Добавлено: 30.05.10 05:10
А подругому, разобраться ни как?
Номер ответа: 8
Автор ответа:
LEX1ERS
ICQ: 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
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #9
Добавлено: 31.05.10 11:18
Номер ответа: 10
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #10
Добавлено: 31.05.10 11:19
для кода используй кнопку КОД.