смена кодидорвки

Сейчас на форуме: asfa, _MBK_, Rio (+5 невидимых)

Посл.ответ	Сообщение
stlay Ранг: 10.1 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 14 февраля 2009 21:30 · Поправил: stlay · Личное сообщение · #1 Здравствуйте, возникла следующая проблема. Есть файл с него запускается игра. Дак вот, в игре когда печатаешь в окно чата русские буквы отображаются бракозябрами. Как можно решить эту проблему?

Khim Ранг: 8.0 (гость) Активность: 0.02↘0 Статус: Участник	Создано: 15 февраля 2009 17:23 · Личное сообщение · #2 Заменить файл шрифта в ресурсах, на свой, или изменить ссылу на шрифт, но тот, который в системе установлен. Может быть еще одно решение проблемы : добавить к названию шрифта приставку Cyr, например, если где то в ресурсах шрифт называется как Arial, то пробуй сделать чтоб назывался ArialCyr. Такая штучка еще прокатывает в MacroMedia, когда нада отобразить русский текст, то в название шрифта добавить приставку, и все норм. Пробуй, мож поможет
wasmkv Ранг: 24.2 (новичок), 1thx Активность: 0.03↘0 Статус: Участник	Создано: 15 февраля 2009 22:18 · Личное сообщение · #3 Попробуй добавить в реестр этот регфайлик. Во многих случаях помогает. d3d6_15.02.2009_CRACKLAB.rU.tgz - rus.rar
Isaev Ранг: 756.3 (! !), 113thx Активность: 0.61↘0.05 Статус: Участник Student	Создано: 15 февраля 2009 22:48 · Личное сообщение · #4 ты бы выложил файлик... На Delphi наверное написан если да, то я тебе его пропатчу ----- z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh
AVE Ранг: 81.7 (постоянный), 10thx Активность: 0.03↘0 Статус: Участник	Создано: 16 февраля 2009 07:53 · Личное сообщение · #5 Isaev Пропатчишь, и расскажи как это делается на пальцах
Isaev Ранг: 756.3 (! !), 113thx Активность: 0.61↘0.05 Статус: Участник Student	Создано: 16 февраля 2009 11:35 · Личное сообщение · #6 Когда-то запарила проблемма этих кодовых страниц... Примерно вот так: Code: Function FixDefaultUserCodePageBug(Image:Pointer;Size:Integer;CodePage:Integer) :Boolean; Type TRelMov=Packed Record MovOp:Word;//mov [xxxxxxxx],xxxxxxxx VarAddr:DWord;//DefaultUserCodePage Value:DWord;//3 End; TCode=Packed Record CallOpA:Byte;//$E8 OffsetA:Integer;//GetThreadLocale CallOpB:Byte;//$E8 OffsetB:Integer;//LCIDToCodePage MovOp:Byte;//$A3 VarAddr:DWord;//DefaultUserCodePage End; TCodes=Packed Record Jmp:Word;//jz +$2d ($2d74) Code:Array[0..15] Of Byte;//GetVersion check RelMov:TRelMov;//DefaultUserCodePage := 3 Jmp2:Word;//Short jump Code1:TCode;//NT4 Jmp3:Word;//Short jump Code2:TCode;//Win95/98/ME End; Var Code:^TCodes; Begin Result:=False; Code:=Image; While Size>SizeOf(TCodes) Do Begin With Code^ Do If (Jmp=$2D74) And (RelMov.MovOp=$05C7) And (RelMov.Value=3) And (Code1.CallOpA=$E8) And (Code1.CallOpB=$E8) And (Code1.MovOp=$A3) And (Code2.CallOpA=$E8) And (Code2.CallOpB=$E8) And (Code2.MovOp=$A3) And (Code1.OffsetA-Code1.OffsetB=Code2.OffsetA-Code2.OffsetB) And (Code1.VarAddr=Code2.VarAddr) And (Code1.VarAddr=RelMov.VarAddr) Then Begin RelMov.Value:=CodePage; Jmp:=$EB12; Result:=True; Break; End; Inc(PByte(Code)); Dec(Size); End; End; ----- z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

Для печати