exe для запуска exe

[fireballpro100]

Говорю сразу: я ничего не смыслю в програмировании; зачем подался на такой форум? Надеюсь получить ответ на свой вопрос,упавая на то, что его реализация не такая сложная.

У меня возникла потребность, создать exe файл, который запускает другую программу. То есть: просто тупо играет роль посредника. Другими словами: что-то наподобие ярлыка, только exe , а не lnk.

Существует ли решение подобному? Прошу не ругаться, что пытаюсь добиться "готовенького".

[Serge_Bliznykov]

ОМГ!!

а ассемблер вам при этом зачем???!

Возьмите любой язык высокого уровня (да хоть тот же Delphi/FreePascal) - и напишите на нём.

[Mikl___]

fireballpro100
такие вещи реализуются на основе функции WinExec, ShellExecute, CreateProcess и т.п. Вот описание WinExec.

UINT WinExec(  
	LPCSTR lpCmdLine,	// строка с именем программы
	UINT uCmdShow	// вид вывода на экран в смысле
			//скрытая или нормальная и так далее
);

А вот код на С/С++ примером, который запускает обычный калькулятор:

// ExecTest.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include "windows.h"
#include "iostream.h"

void main()
{
	cout << WinExec("c:\\windows\\calc.exe",SW_SHOW) << endl;
}

то же самое на ассемблере

.data
string db 'c:\windows\calc.exe',0
.code
start: push SW_SHOW
        push offset string
        call _imp__WinExecA@8

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

ShellExecute(NULL, L"open", L"C:\\windows\\system32\\calc.exe", NULL, NULL, SW_SHOWNORMAL);

а можно и вот так

TStartupInfo si;
TProcessInformation pi;
ZeroMemory(&si,sizeof (si)); si.cb = sizeof(si);
CreateProcess( NULL, // No module name (use command line).
L"C:\\windows\\system32\\calc.exe", // Command line.
NULL, // Process handle not inheritable.
NULL, // Thread handle not inheritable.
false, // Set handle inheritance to FALSE.
0, // No creation flags.
NULL, // Use parent's environment block.
NULL, // Use parent's starting directory.
&si,  // Pointer to STARTUPINFO structure.
&pi  ) // Pointer to PROCESS_INFORMATION structure.

[Noor]

Ну, а для особо извращенных можно интегрировать exe в exe (не в виде ресурсов, а в виде массива) и потом при необходимости извлекать и запускать

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var //тут описание переменных
Form1: TForm1;
Exe: TFileStream; //Файловый поток

const
data: array [0..486419 - 1] of byte = ($6E, $3B, $B8, $31, $2B, $E9, $BA, $9A, $7B, $83, $63, $9A, $03, $64, $1B, $53, 
	$28, $66, $27, $BF, $B1, $55, $ED, $20, $33, $E5, $82, $A5, $7F, $B9, $93, $2F .....................$41, $30, $36
); //Массив байтов нашего exe (тут приведен не польностью)

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 begin
   Exe:=TFileStream.create('bot.exe',fmcreate); //Инициализация Файлового потока для 
   exe.Write(data,486419);//Запись в поток массива байтов
   exe.Free; //освобождаем поток
 end;
end.

Запускать извлеченный файл можно через WinExec или ShellExecute

[DiemonStar]

И, что показательно, даже VBA поддерживает подобное:

Shell "C:\WINDOWS\notepad.EXE", vbMinimizedFocus

выполнив данный код макросом вы откроете Блокнот в активном свёрнутом окне)

[yuran666666]

Программка bat to exe это все что вам нужно.

[programmisto1]

Ну кто хочет на чистом ассемблере прочитай файл и сохрани его в конце себя, а затем прыгай в эти сохраненные данные. Только и всего!

[yuran666666]

programmisto1, расскажите же поподробнее, что то малопонятно что имелось ввиду.