Как можно собрать Builder чтобы можно было бы заменять большие части кода?

[MyLastHit]

Самый верный способ - скинь нам сырцы или уже скомпилированную программу, которую ты сейчас описываешь. Даже объяснять не придется.
Как можно понять речь, в которой нет ни одной запятой, нестыкуются слова между собой, все существительные/глаголы в разных падежах/склонениях.
Мне это напоминает вот такой каламбур:

ну да это пологаю что как бы но дело в том что быть может наверное есть подозрения и соображения тогда как но всегда ли можно и необходимо четко вообразить истину допускающую вероятность тогда возможно не исключительно и необходимо ?????????

[CepbIu]

полностью согласен, совершенно не понятно о чём идёт речь
да и файлик libastral.so куда то пропал...
напоминает случай из жизни друга:

- твой дед знает что я курю?
- да, я видел, как дед видел, что ты куришь.

[cargo29]

вообщем смотрите программа которая создает тоже программу в которую помещает текст введенный в первой программе

[cargo29]

после чего вторая программа при запуске сохраняет текст например text.txt

[cargo29]

Пишем простой Билдер(Builder) 
Много видел статей про создания Билдера к трою или вирю и захотел написать свой.Как всегда не чего лучше изучения книг и практики нету(ну возможно просмотр видео =) ).

Ты написал свой трой и каждый раз его редактировать в исходниках не удобно,согласись.
(такие параметры на пример как почта или ftp)

Для этого мы и напишем билдер.


Пример будет на замене обычного текста в простой программе.

Открываем delphi 7,создаём простой проект и на форму кинем Edit.

В инспекторе объекта Edit ищем Text и вписываем xxxxxxxxxx можете другое написать,не в этом суть,а в количестве х
Так как большее количество мы не изменим и программа просто не запустится(то есть,чем больше х тем лучше).

Сохраните проект и компилируйте 
Назовём полученный файл test.exe


Теперь приступим к созданию билдера,который будет изменять надпись в Edit(xxxxxxxxxx) на нужную нам.

Открываем опять delphi 7 и создаём новый проект.

На форму кинем Edit и Button.

Сохраним проект.В папку с сохранённым проектом кинем ранее созданный text.exe

Там же создадим текстовый документ и напишем:Скрытый текст, требуется 0 сообщение(ий) (сейчас у вас 144):

code:
TEST EXEFILE C:\Users\admin\Desktop\test\test.exe



Сохраним его и переименуем в test.rc

Открываем cmd и пишем>brc32.exe C:\\путь до файла\test.rc

У вас получится файл test.res

Открываем наш проект с билдером и находим {$R *.dfm} чуть ниже допишем {$R test.res} 

Это мы наш text.exe поместили в ресурсы билдера.
Теперь нам нужно прописать его извлечение из ресурсов и замену нашего xxxxxxxxxx 

В проекте ниже {$R *.dfm} пишем две процедуры:Скрытый текст, требуется 0 сообщение(ий) (сейчас у вас 144):

code:
function ExtractRes(ResType, ResName, ResNewName: string): Boolean;
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType));
try
Res.SavetoFile(ResNewName);
Result := True;
finally
Res.Free;
end;
end;

procedure ReplaceStr(FileName, OldStr, NewStr: String);
var
f: file;
l: Longint;
S: string;
begin
S := 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;



Теперь нажимаем два раза на Button и пишем:Скрытый текст, требуется 0 сообщение(ий) (сейчас у вас 144):

code:
procedure TForm1.Button1Click(Sender: TObject);
var
  StrTest, hTest: String;
begin
  StrTest := Edit1.Text;
  if StrTest = '' then
  begin
    ShowMessage('Введите значение');
    Exit;
  end;
  hTest := StrTest + #0;
  begin
    ExtractRes('EXEFILE', 'TEST', 'test.exe');
    ReplaceStr('test.exe', 'xxxxxxxxxx', hTest);
    ShowMessage('Готово');
end;
end;



Компилируем и проверяем.

Ура :yahoo: работает!!!

вот простой код но тут небольшой текст заменяет, а мне надо большой

[Человек_Борща]

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

Как вариант INNO SETUP на delphi и в исходных кодах. Открой да посмотри.

думаю стоит ещё почитать DRKB Категория "Язык прогрммирования delphi" >> "Скрипты, компиляторы и связанные с ними вопросы"
Там хорошая статья как использовать компилятор delphi в своих целях.

И ещё соседний топик тоже по вашей теме

[cargo29]

Сообщение от Человек_Борща

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

Как вариант INNO SETUP на delphi и в исходных кодах. Открой да посмотри.

думаю стоит ещё почитать DRKB Категория "Язык прогрммирования delphi" >> "Скрипты, компиляторы и связанные с ними вопросы"
Там хорошая статья как использовать компилятор delphi в своих целях.

И ещё соседний топик тоже по вашей теме

Спасибо щас гляну почитаю

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

помоему проще всего вспомнить про оверлеи.