Как конвертировать файл .bat в exe посредством delphi?

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'yourbatchfile.bat', nil, nil, SW_SHOWNORMAL);
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

procedure ConvertBatToExe(const batFilePath, exeSavePath: string);
var
  process: TProcess;
begin
  process := TProcess.Create(nil);
  try
    process.Executable := 'IExpress.exe'; // Путь к утилите IExpress
    
    // Аргументы командной строки для создания .exe
    process.Parameters.Add('/N'); // Новый пакет
    process.Parameters.Add('/Q'); // Тихий режим
    process.Parameters.Add('/M "None"'); // Нет сообщений
    process.Parameters.Add('/D "' + ExtractFilePath(exeSavePath) + '"'); // Путь сохранения .exe
    process.Parameters.Add('/C'); // Конфигурация через файл с описанием
    process.Parameters.Add('/T "' + batFilePath + '"'); // Путь к .bat файлу
    process.Parameters.Add('/I "' + ChangeFileExt(batFilePath, '.sed') + '"'); // Путь к файлу конфигурации

    process.Options := [poWaitOnExit];
    process.Execute;

    if process.ExitStatus <> 0 then
      ShowMessage('Ошибка при конвертации .bat в .exe');
  finally
    process.Free;
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

procedure TForm1.Button1Click(Sender: TObject);
var
  batFilePath, exeSavePath: string;
begin
  batFilePath := 'C:path	oyourbatchfile.bat'; // Путь к .bat файлу
  exeSavePath := 'C:path	osaveyourconvertedfile.exe'; // Путь сохранения .exe

  ConvertBatToExe(batFilePath, exeSavePath);

  ShowMessage('Конвертация завершена');
end;