Компиляция в программе

[GunSmoker]

Сообщение от mrbadge

файлы компилятора дельфи я добавлю в ресурсы

Это незаконно.

[GunSmoker]

Сообщение от mrbadge

В проге-родителе пользователь вводит значения этиъ самых переменных в текстовые поля, и именно эти значения и присваиваются переменным и прога компилится

Напиши программу такого плана:

const
  Value1 = 'showmethemoney            ... и т.д. длиной 1024 символов';

Скомпилируй её. Надо изменить константу? Открыл .exe, нашёл в нём 'showmethemoney' и вписал туда своё значение, приписав терминатор.

Всё.

[veniside]

> приписав терминатор

длина строки вроде как в 4-х байтах хранится, предшествующих самой строке.

[Пепел Феникса]

длина строки вроде как в 4-х байтах хранится, предшествующих самой строке.

надо смотреть по месту, но вообще терминатор в любом случае надо прописывать, и скорее всего еще изменять байты длины строки, не помню как там Д хранит строки, надо в редакторе смотреть.

[mrbadge]

Сообщение от GunSmoker

Это незаконно.

ок, уже отказался от этой идеи) а вообще, кто тут без греха?)

... к теме: в прошлом сообщении я написал, что практически проблема решилась. Осталось только удалить лишние символы из кода. Есть ли такая возможность?

Напиши программу такого плана:

Код:

const
Value1 = 'showmethemoney ... и т.д. длиной 1024 символов';

Скомпилируй её. Надо изменить константу? Открыл .exe, нашёл в нём 'showmethemoney' и вписал туда своё значение, приписав терминатор.

Если я правильно понял, то это совсем не то, что мне нужно)

В ВинХексе вижу такую вещь (Д- нужный символ, Н - не нужный):
... ДДДДДДД ННН .... именно пробел+ННН и нужно удалить

[veniside]

вот и забей пробел и дальше нулями. Только есть шанс, что эти нули вылезут, если длину не подфиксить.

[mrbadge]

вот у меня как раз подозрение, что эти нули там совсем не к месту, но сейчас сделаю

[Пепел Феникса]

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

[mrbadge]

тогда что тут будет терминатором? еще раз приведу код из программы:

procedure ReplaceStr(FileName, OldStr, NewStr: String); //Замена строки - тут-//то и корень зла
var
    f: file;
    l: Longint;
    S: string;
begin
  S := OldStr;
  //SetLength(NewStr, Length(OldStr));
  AssignFile(f, FileName);
  Reset(f, 1);
  for l := 0 to FileSize(f) - Length(OldStr) {- 1} do
  begin
    Application.ProcessMessages;
    Seek(f, l);
    BlockRead(f, OldStr[1], Length(OldStr));
    if OldStr = S then
    begin
      Seek(f, l);
      BlockWrite(f, NewStr[1], Length(NewStr));
    end;
  end;
  CloseFile(f);
end;

Передаю переменные в процедуру (замена первой строчки на вторую, только кусок все равно остается)

ReplaceStr('proga.exe', 'passpasspasspasspasspass', pass_str);

[mrbadge]

при вбивании нулей почему-то то место кода, где это происходит изменяется сильнее, чем надо) ... при любой другом символе - все ок ..