|
#1
|
|||
|
|||
Создание .ехе
Народ плиззз помоите...хочу сделать прогу которая компилирует проект как Delphi в .ехе пожалуйста подскажите как это сделать
Заранее спасибо |
#2
|
|||
|
|||
Первое что приходит в годлову - основать свою компанию, развить ее, набрать штат программистов и разработать собственный компилятор
|
#3
|
|||
|
|||
Зачем???
Можно все попробще сделать. Но все зависит от задачи. Если надо выполнять любой код, то, видимо, действительно нужно делать свой компилятор. Ну или взять dcc32 и его таскать за собой с нужными библиотеками. Второй вариант - это когда у тебя задачу можно описать некоторой "скриптовой" командой (т.е. набор команд достаточно небольшой) или просто некоторой структурой данных (фактически, когда алготритм не меняется, но данные надо подсовывать извне). тогда просто делаешь шаблон .exe и в его ресурсы в момент "компиляции" вставляешь свой скрипт/данные. Или даже просто рядом кладешь файлик со скриптом/данными. Простейший пример - слайд шоу на CD. Есть смотрелка в виде .exe, при формировании образа параметры слайд-шоу и список картинок пишутся в специальный файл, который кладется рядом с исполняемым модулем, потом дописываются картинки и образ прожигается в таком виде. Третий вариант - развитие второго, когда тебе все-таки нужно уметь писать достаточно сложные программы. Делается по принципу интерпритатора. Берешь любой интерпретатор языка (любого, но на Дельфи обычно принято брать паскаль), например FastScript. Программа в виде ресурса вставляется в заранее скопиленный .exe. Все. |
#4
|
||||
|
||||
Цитата:
собрался писать свой компилятор?- набирайся опыта+терпения, я как раз чем то подобным занимаюсь уже с неделю, но как мне кажется ты это завтра же бросишь TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#5
|
|||
|
|||
Делаю игровой движок вот для этого мне и нужен собственный компилятор
|
#6
|
||||
|
||||
Цитата:
я тебе скажу то что ты услышишь не раз: подумай нужно ли оно тебе TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |