Как запустить массив байтов как приложение?

@Uefi220 · Регистрация: 20.06.2021

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

Здравствуйте, если например через WinHex скопировать блок открытого в нём приложения .exe как исходный код Pascal
то можно ли его как то запустить напрямую не создавая файл через TFilestream ?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project1;
 
uses
  windows,
  classes,
  shellapi;
 
const
HelloWorld: array[0..698737] of byte = (
$90, $00, $63, $10, $72, $12 // Много кода..
);
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecuteExA(@HelloWorld); // Не запускает ((
end;
end.

@Uefi220 · 28.06.2022, 05:45 **[ТС]**

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

Uefi220, хамить не надо! Вы сами даже этого сделать не удосужились! Официальное предупреждение.

Где хамство и в чей адрес ?

Добавлено через 2 минуты

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

я в Delphi 7 пробовал. Калькулятор вроде запускается, но это ерунда получается. Не помню уже точно, но то ли он глючил, то ли не всегда запускался. В общем, я этот способ забраковал.

Тоже ничего не запустилось по тому примеру не калькулятор не другой ресурс

Добавлено через 42 секунды

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

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

Я похож на того кто знает Ассемблер ?)

@QueryMonkey · 28.06.2022, 05:51

Uefi220, задача которой вы интересуетесь, значительно превышает ваш уровень знаний.

Вы спрашиваете как вскрыть сейф, но не слышали про отмычки.

Поэтому - запускайте программу с диска, как все.

@Uefi220 · 28.06.2022, 06:52 **[ТС]**

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

задача которой вы интересуетесь, значительно превышает ваш уровень знаний.

Откуда ты знаешь мой уровень знаний ?

@QueryMonkey · 28.06.2022, 07:05

Uefi220, вы сами сказали что не знаете ассемблер.

В сочетании с общей хамовитостью это вас характеризует как человека с низким уровнем знаний (для данной задачи) и с плохо развитыми навыками общения.

Освойте WinExec(), его в дебаггере смотреть - сплошное познавательное удовольствие.

@Uefi220 · 28.06.2022, 10:36 **[ТС]**

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

В сочетании с общей хамовитостью это вас характеризует как человека с низким уровнем знаний (для данной задачи) и с плохо развитыми навыками общения.
Освойте WinExec(), его в дебаггере смотреть - сплошное познавательное удовольствие.

Хорош ахинею нести

DenNik · 28.06.2022, 10:41

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

Хорош ахинею нести

- что подтверждает общую хамовитость персонажа. за год нахождения на форуме все уже поняли, ху из ху.

@AzAtom · 28.06.2022, 10:54

Комментарий модератора

Прекращаем перепалку. Давайте по делу.

@Uefi220 · 05.07.2022, 13:10 **[ТС]**

Добился запуска из массива байтов примером calc и танцами с бубном Ресурсы
запускает далеко не всё непонятно почему =(

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Project1;
 
uses
  windows,
  classes,
  shellapi;
 
const
HelloWorld: array[0..698737] of byte = (
$90, $00, $63, $10, $72, $12 // Много кода..
);
 
procedure TForm1.Button1Click(Sender: TObject);
var
pch: array [0..MAX_PATH] of char;
begin
GetModuleFileName(0, pch, MAX_PATH);
MemoryExecute(@HelloWorld, pch, '');
end;

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@QueryMonkey Нарушающий 417 / 305 / 46 Регистрация: 13.04.2022 Сообщений: 1,759
	28.06.2022, 05:51
	Uefi220, задача которой вы интересуетесь, значительно превышает ваш уровень знаний. Вы спрашиваете как вскрыть сейф, но не слышали про отмычки. Поэтому - запускайте программу с диска, как все. 0

@QueryMonkey Нарушающий 417 / 305 / 46 Регистрация: 13.04.2022 Сообщений: 1,759
	28.06.2022, 07:05
	Uefi220, вы сами сказали что не знаете ассемблер. В сочетании с общей хамовитостью это вас характеризует как человека с низким уровнем знаний (для данной задачи) и с плохо развитыми навыками общения. Освойте WinExec(), его в дебаггере смотреть - сплошное познавательное удовольствие. 2