Запуск машинного кода из программы

@jason32 · Регистрация: 05.09.2016

Author24 — интернет-сервис помощи студентам

Подскажите,как запустить машинный код из программы в Delphi.Т.е имеется EXE-файл,который нужно запустить из моей программы,так,чтобы EXEшник лежал внутри (например,как текстовый файл или как либо иначе)-т.е после компиляции стал частью моей программы.
файлик не маленький-несколько Kb.

@Dynamic · 08.09.2010, 13:09

Добавляешь файл в ресурс:
-создаешь текстовый файл
-пишешь:
MYEXE RCDATA C

irmyexe.exe
-сохраняешь как MyRes.rc
-компилируешь программой brcc32.exe (папка bin Delphi):
brcc32.exe MeRes.rc
-получаешь MyRes.res

Подключаешь ресурс к программе: {$R MyRes.res}

Когда надо запустить:
-извлекаешь ресурс

Код

procedure ExtractExe;
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, 'MYEXE', 'RCDATA');
  Res.SavetoFile('C:Tempmyexe.exe');
  Res.Free;
end;

-запускаешь

Код

uses ShellAPI;
...
ShellExecute(0, 'open', 'C:Tempmyexe.exe', nil, '', SW_NORMAL)

-удаляешь файл

Код

DeleteFile('C:Tempmyexe.exe');

@Dynamic · 08.09.2010, 13:19

Вобщем, вот:

http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=60508032&PageNum=0&g=0&d=0&q0=14 25223136&p=

@jason32 0 / 0 / 0 Регистрация: 05.09.2016 Сообщений: 1
		1
	Запуск машинного кода из программы 08.09.2010, 11:21. Показов 1558. Ответов 2 Метки нет (Все метки) Подскажите,как запустить машинный код из программы в Delphi.Т.е имеется EXE-файл,который нужно запустить из моей программы,так,чтобы EXEшник лежал внутри (например,как текстовый файл или как либо иначе)-т.е после компиляции стал частью моей программы. файлик не маленький-несколько Kb. 0

@Dynamic 1 / 1 / 1 Регистрация: 26.08.2010 Сообщений: 133
	08.09.2010, 13:09	2
	Добавляешь файл в ресурс: -создаешь текстовый файл -пишешь: MYEXE RCDATA Cirmyexe.exe -сохраняешь как MyRes.rc -компилируешь программой brcc32.exe (папка bin Delphi): brcc32.exe MeRes.rc -получаешь MyRes.res Подключаешь ресурс к программе: {$R MyRes.res} Когда надо запустить: -извлекаешь ресурс Код procedure ExtractExe; var Res : TResourceStream; begin Res := TResourceStream.Create(Hinstance, 'MYEXE', 'RCDATA'); Res.SavetoFile('C:Tempmyexe.exe'); Res.Free; end; -запускаешь Код uses ShellAPI; ... ShellExecute(0, 'open', 'C:Tempmyexe.exe', nil, '', SW_NORMAL) -удаляешь файл Код DeleteFile('C:Tempmyexe.exe'); 0

@Dynamic 1 / 1 / 1 Регистрация: 26.08.2010 Сообщений: 133
	08.09.2010, 13:19	3
	Вобщем, вот: http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=60508032&PageNum=0&g=0&d=0&q0=14 25223136&p= 0