В программу на Delphi поместить EXE файл

[_KUL]

var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, 'calc.exe', 'RCDATA');
  Res.SavetoFile('calc.exe');
  Res.Free;
  WinExec('calc.exe',SW_SHOWNORMAL);

Не получается, не извлекается файлик calc.exe


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SERG1980]

 
Res1:=TResourceStream.Create(Hinstance,'calc','EXEFILE');
Res1.SaveToFile(SPath+'calc.exe');

где calc имя файла в файле ресурсов. Например calc EXEFILE calc.exe

[_KUL]

SERG1980, БОЛЬШОЕ человеческое вам спасибо!!!!! Всё получилось, всё работает.

Интересно, а не сохраняя на жёсткий диск, можно запустить файл прямо из Res ?

[Serge_Bliznykov]

Интересно, а не сохраняя на жёсткий диск, можно запустить файл прямо из Res ?

Прямо из RES - нельзя. Но можно из RES извлечь в память и запустить процесс из памяти (только последнее весьма сложно!).

_KUL, Вы не очень внимательно читаете ответы.
в этой теме Человек_Борща дважды говорил о запуске из памяти (посты #4 и #6)

[Max_0]

Всем привет. Возникла такая проблема по данной теме. я написал прграмму, например, program.exe (на Delphi 6). Зашивать в него exe файлы написанные НЕ на Delphi у меня получается (например калькулятор и.т.д.). А вот зашит в этот файл (в program.exe), написанный на Delphi екзешник не получается, т.к. антивирус начинает ругатся и не разрешает скомпилировать до конца. Хотя обе программы являются обсалютно безвредными.

Можно конечно отключить антивир и скомпилировать до конца, но как только антивир включаю и пытаюсь запустить екзешник в котором зашит другой екзешник (тоже написанный на Делфи) то он начинается ругатся и просит удалить файл.

В чем проблема? можно ли этого избежать?

если непонятно обяснил, прошу прощения)) могу еще раз более подробно. спасибо заранее.

[JetUS]

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

... антивирус начинает ругатся и не разрешает скомпилировать до конца. Хотя обе программы являются обсалютно безвредными.

Просто так антивирус ругаться не будет. Ваша программа при старте что-то подозрительное делает (копируется куда-то, запускает что-то, пишет в реестр что-то), вот он и ругается. Есть несколько способов обойти это, но уж больно на троян смахивает...

[Max_0]

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

Просто так антивирус ругаться не будет. Ваша программа при старте что-то подозрительное делает (копируется куда-то, запускает что-то, пишет в реестр что-то), вот он и ругается. Есть несколько способов обойти это, но уж больно на троян смахивает...

Ну уж поверте мне, я отлично знаю процедуры как копировать файл куда то, запускать другой процесс из своей экзешки, писать или читат из реестра что то. дело в том что ни одну из этих вещей программа не делает. Что бы развеять все сомнения я зделал вот так: скомпилировал одну программу которая не делает обсолютно ничего, т.е. просто открывает пустую форму (prog1.exe). Потом зделал еще одну такую же, но назвал его prog2.exe. И так мы имеем две одинаковые программы коотрые открывают просто пустую форму ничего более. И вот когда я хочу зашит prog1.exe в prog2.exe антивир ругается. Почему это так? ведь никаких действий со стороны программы не предпринимается. Много букв))) заранее спасибо за внимание и терпение.

[Max_0]

Да и еще, это не троян, не вир, не черв или еще что то. У меня пакет программ состоящий из трех екзешников делаю своего рода инсталлятор. так что сразу скажу это во благо человечества))

[JetUS]

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

Почему это так? ведь никаких действий со стороны программы не предпринимается. Много букв))) заранее спасибо за внимание и терпение.

Для надёжности: отключите антивирус и отправьте файл на анализ в virustotal.com и зацените, как на ваш файл будут реагировать большинство антивирусов. Результатами поделитесь тут.