[Erilar]

Как запустить установочную программу с параметрами?
Например: Если просто открыть файл "SetupWinRar.exe", то он запуститься с вопросом в какую директорию установить прогу, а если запустить через командную строку так: "START SetupWinRar.exe \S", то она установится сама в фоновом режиме. Как сделать это в делфи?

[NumLock]

Код:

function ParamCount: Integer;
function ParamStr(Index: Integer): string;

[Erilar]

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

Код:

function ParamCount: Integer;
function ParamStr(Index: Integer): string;

Как это можно использовать? Можно сам код, пожалуйста.

[NumLock]

в файле проекта первым делом проверять ParamStr(1). если он == '/s', то отображать форму не надо, а выполнять всю работу без окна.

[poli-smen]

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

Как запустить установочную программу с параметрами?
Например: Если просто открыть файл "SetupWinRar.exe", то он запуститься с вопросом в какую директорию установить прогу, а если запустить через командную строку так: "START SetupWinRar.exe \S", то она установится сама в фоновом режиме. Как сделать это в делфи?

По-моему здесь необходимо уточнение вопроса.
Что требуется?:

1. Сделать свою установочную программу которая в зависимости от переданных ей параметров будет по разному реагировать
2. Запустить чужую программу (например установщик SetupWinRar.exe) с параметрами

Ответ на первый вариант дан выше, а для второго варианта используй CreateProcess, ShellExecute, WinExec.

[Erilar]

Сообщение от poli-smen

По-моему здесь необходимо уточнение вопроса.
Что требуется?:

1. Сделать свою установочную программу которая в зависимости от переданных ей параметров будет по разному реагировать
2. Запустить чужую программу (например установщик SetupWinRar.exe) с параметрами

Ответ на первый вариант дан выше, а для второго варианта используй CreateProcess, ShellExecute, WinExec.

Запустить чужую программу.

[poli-smen]

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

Запустить чужую программу.

Пример через ShellExecute:

Код:

uses ... ShellAPI;
.....
ShellExecute(0, 'open', 'SetupWinRar.exe', '\S', nil, SW_NORMAL);

[poli-smen]

Вариант с ShellExecute я проверил - у меня работает. Единственно только для тихой установки WinRar-овских SFX архивов нужно использовать параметр '/S', а не '\S'.

Вот вариант через CreateProcess:

Код:

var
  SI: TStartupInfo;
  PI: TProcessInformation;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.cb := SizeOf(SI);

  if not CreateProcess(nil, 'SetupWinRar.exe /S', nil, nil, False, 0, nil, nil, SI, PI) then RaiseLastWin32Error();

  CloseHandle(PI.hProcess);
  CloseHandle(PI.hThread);
end;

p.s. Естественно путь к файлу "SetupWinRar.exe" должен быть известен. Иначе либо имя этого файла нужно указывать полностью с путём, либо устанавливать текущий путь к этому файлу с помощью SetCurrentDir.