tyomitch писал(а):А траблы-то в чём? Найти в exe-шнике строку, и заменить на другую такой же длины...
Не так. "Вася Пупкин" превратится в " ■0AO "Amed писал(а):"В а с я П у п к и н"
(Между каждым байтом с ascii-кодами букв висит нулевой байт)
А остальные, например русские, превращаются в кашуAmed писал(а):А для остальных просто не вставляются?
Private Sub Command1_Click()
Open App.Path & "\имя_твоего_файла_настроек" For Input As #1
Print #1, "Твоя строка"
Close #1
Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus
End Sub
Private Sub Form_Load()
Dim S As String
Open App.Path & "\имя_твоего_файла_настроек" For Input As #1
Line Input #1, S
Close #1
Label1.Caption = S
End Sub
Cryonyx писал(а):Тут где-то недавно ведь обсуждали что-то связанное с PropertyBag - и насколько я понял тогда из обсуждения, именно с помощью него можно сохранить значения в exe'шник.
Cryonyx писал(а):А если ещё и размер бина превышает допустимый размер даже variant-переменной, то...
tyomitch писал(а):А траблы-то в чём? Найти в exe-шнике строку, и заменить на другую такой же длины...
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 41