Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
Вниз
Как вставить exe файл в прогу Найти похожие ветки
← →
Roman_K (2006-04-13 08:28) [0]Как вставить exe файл в прогу, чтобы можно было в дальнейшем этот вложенный файл можно было скопировать. т.е при запуске одной проги
куда нибудь копировался вложенный файл.
← →
elfebet © (2006-04-13 09:16) [1]О, у меня такая же проблема. Единственное я знаю что это делается через ресурсы http://articles.org.ru/docum/resurs.php, но как извлеч этот exe и запустить я незнаю (парился целый день - ничего не получилось)
← →
Котик Б (2006-04-13 09:22) [2]К сожалению никак :(((
elfebet ©
Можно спросить ? А что значит Ваш ник - а то слово Эльф вижу - а что он делает как-то непонятно ...
← →
elfebet © (2006-04-13 09:29) [3]слово elfebet - неправильное написание слова alphabet (алфавит)
← →
Amoeba © (2006-04-13 09:32) [4]
> Roman_K (13.04.06 08:28)
> Как вставить exe файл в прогу, чтобы можно было в дальнейшем
> этот вложенный файл можно было скопировать. т.е при запуске
> одной проги
> куда нибудь копировался вложенный файл.
Такой вопрос с завидной регулярностью задается на форуме. Ищите ответ в постах за прошлые дни и обрящете.
← →
elfebet © (2006-04-13 09:36) [5]я лично искал, ненашел. Может подкинеш ссылку.
← →
Котик Б (2006-04-13 09:36) [6]elfebet ©
Покорнейше простите за неправильную трактовку :-\
← →
Amoeba © (2006-04-13 09:41) [7]
> elfebet © (13.04.06 09:36) [5]
> я лично искал, ненашел. Может подкинеш ссылку.
Ищи как следует, причем сам. Ссылку не подкину, т.к. мне задачи, подобные твоей, абсолютно неинтересны.
← →
elfebet © (2006-04-13 09:52) [8]Ура! Нашел!
1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например: ARJ EXEFILE C:\UTIL\ARJ.EXE 2. Компилируем его в ресурс при помощи Brcc32.exe. Получаем RES-файл. 3. Далее в тексте нашей программы:
implementation
{$R *.DFM}
{$R test.res} //Это наш RES-файл
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// Записывает в текущую папку arj.exe
ExtractRes("EXEFILE", "ARJ", "ARJ.EXE");
end;
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622425&n=19
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
