[BlackMonsta]

Доброго времени суток. У меня есть вопрос, к примеру есть 2 формы, вторая форма существует для редакции первой формы, но не пойму как сохранить первую форму как exe.

[Alegun]

По-видимому, как следует из вопроса, способ редактирования содержимого первой формы в рантайме ужо организован полностью, похвально тогда вот вам такой вариант "сохранения" - на выходе из программы задаёте следующий деструктор формы

Код:

procedure TForm1.FormDestroy(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  begin
  FStr:= TFileStream.Create('Form1.txt', fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(form1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;
  FStr.Free;
 end;

затем создете новый проект с пустой формой и пишете в него такую креативную процедуру

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
begin
 if FileExists('Form1.txt') then
   begin
    Form1.DestroyComponents;
    FStr:= TFileStream.Create('Form1.txt', fmOpenRead);
    MemStr:= TMemoryStream.Create;
    ObjectTextToBinary(FStr, MemStr);
    MemStr.Position:= 0;
    MemStr.ReadComponent(Form1);
    MemStr.Free;
    FStr.Free;
   end;
end;

после компиляции основной сборки изменения в "редакторе" будут полностью отражаться на форме "исполнительного" проекта

[BlackMonsta]

Вы наверное не так поняли)). Вот смотрите, в проекте есть две формы. Первая форма пустая. Вторая форма дает возможность добавлять или редактировать что то на первой форме. И мне нужно готовую первую форму сохранить как *.exe. Без всяких *.txt и прочего.

[Alegun]

Экзе без проекта не бывает, у вас по-любому будет их два или тогда при запуске основного должен обрабатываться сценарий запуска: толи показать редактор иль "готовый продукт", других вариантов окромя как таскать за собой борландовский компилятор не наблюдается

[BlackMonsta]

Тоесть, создать один проект чтобы от этого проекта создавалась основа и переходила на второй пустой проект?

[Alegun]

Просто на начальном запуске нужно проверять в каком режиме запускать сборку, это делается в файле *.dpr примерно так

Код:

...
begin
if {нужное условие запуска} then
   Application.CreateForm(TForm1, Form1)
else
   Application.CreateForm(TForm2, Form2);
Application.Run;
end.

[BlackMonsta]

А нельзя просто в TMemoryStream сделать WriteComponent и потом сделать из формы обычный exe?

[Facepalm]

Обычный????!!!! Это что-то типо тхт
4250

[BlackMonsta]

https://www.youtube.com/watch?v=zOhpuXIs3lg, вот на подобии такого.

[Mrak]

хаха, это же глюкфейс)) но ща вроде постабильней стал

ТС, может ты объяснишь, что тебе нужно в итоге? для какой цели "форму как exe"

[BlackMonsta]

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

[min@y™]

Прога-конструктор или что?
Ты бы переформулировал вопрос согласно вот этим тезисам.

[stanilar]

Думаю что человек хочет заменить ресурсы выполняемого exe. Искать надо что-то наподобии этого, но с исходниками delphi.

[BlackMonsta]

Нет нет. Не заменить. Вы не так поняли, вот в проекте есть 2 формы, первая форма она пустая, а вторая форма там имеются настройки первой формы, ну короче говоря через 2 форму можно менять и добавлять объекты на первую форму, как только я добавлю все нужное я хочу первую форму сделать из нее exe'шник. И когда открываю exe-шник то запускалась бы программа но там бы имелась только первая форма которую я сделал в проекте.

[min@y™]

Будь любезен, переведи на русский язык вот эту фразу:

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

как только я добавлю все нужное я хочу первую форму сделать из нее exe'шник