24.12.2009, 22:00
|
|
Новичок
Регистрация: 01.09.2009
Сообщений: 29
С нами:
8785540
Репутация:
0
|
|
как создать ехе файл
Здравствуйте у меня два вопроса:
1) как создать из Делфи file.ЕХЕ файл т.е
assignfile - создает ТХТ фалй, а file.ЕХЕ как создать?
+ что бы когда file.ехе запуска вылазило сообщение.
msgbox('файл 2');
2) как сделать запуск как Администратор.
сам ехе на ходится на сервере. когда я его запускаю он запускается как СИСТЕМ. 
т.е только текстовый документ можно создать.
Спасибо! |
|
|
25.12.2009, 00:25
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
С нами:
9162683
Репутация:
175
|
|
Сообщение от Leon2009
assignfile - создает ТХТ фалй, а file.ЕХЕ как создать?
С чего ты взял, что только txt файл?
Код:
AssignFile(F, 'filename.exe');
|
|
|
|
25.12.2009, 00:43
|
|
Постоянный
Регистрация: 06.04.2009
Сообщений: 383
С нами:
8999624
Репутация:
328
|
|
просто запусти, run сделай и exe сам создается, на сколько я помню
|
|
|
|
25.12.2009, 13:52
|
|
Познавший АНТИЧАТ
Регистрация: 22.02.2009
Сообщений: 1,888
С нами:
9060806
Репутация:
3293
|
|
ТС скомпилируй проект
Для запуска от имени админа тебе нужны права админа. (К.О.)
|
|
|
|
25.12.2009, 20:13
|
|
Познающий
Регистрация: 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 пишем следующее:
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..
|
|
|
|
26.12.2009, 23:01
|
|
Новичок
Регистрация: 01.09.2009
Сообщений: 29
С нами:
8785540
Репутация:
0
|
|
спасибо!!!! но здесь получается что филе2 уже готовый.
а через assignfile если создать ехе то он не будет работать
Спасибо!
|
|
|
|
27.12.2009, 12:57
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами:
8634231
Репутация:
24
|
|
Если ты хочешь действительно "создавать" файл екзешный из своей программы, то тебе нужно много учить или читать много-премного литературы по написанию компиляторов (я бы на твоем месте не заморачивался), а так я тебе представил самый легкий путь решения задачи, стоящей пред тобой
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
