Показать сообщение отдельно

  #5  
Старый 25.12.2009, 20:13
patcher
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами: 8634231

Репутация: 24
По умолчанию

Народ, не несите чушь. Парню нужно со своей программы создать другую, тоесть скомпилить либо сбилдить.
Но я расскажу, как выполнить твое задание чуть по-другому. Итак, приступим.
1. Пишешь на том же Делфи прогу, которая будет "создаватся", в твоем случае вот ее код:
Код:
program FILE2;
uses
  SysUtils, Dialogs;

begin
ShowMessage('Файл 2');
end.
2. Назовем созданную прогу FILE2.exe и переместим на диск С.
3. В блокноте пишем:
Код:
FILE2 EXEFILE C:\FILE2.EXE
и сохраняем под именем FILE2.rc
4. Компилим FILE2.rc при помощи Brcc32.exe (в папке с Делфи). Получим файл FILE2.RES.
5. Подключаем созданный файл (FILE2.RES) в главный проект, для этого после implementation пишем следующее:
Код:
{$R FILE2.RES}
6. А дальше пишем такой вот код, на событие, по которому будет "создаватся прога":
Код:
procedure какая_то;
var ResStream: TResourceStream;
Begin
ResStream:=TResourceStream.Create(HInstance,'FILE2','EXEFILE');
ResStream.SaveToFile('FILE2.exe'); //здесь пишем путь для "создания" екзешки
ResStream.Free;
end;

P.S. Готовый FILE2.RES + пример можешь качнуть тут:
http://slil.ru/28404050

Последний раз редактировалось patcher; 25.12.2009 в 20:17..
 
Ответить с цитированием