Запуск программы с параметрами

[Lokos]

Здравствуйте.
Необходимо из моей программы выполнить программу с параметром как это делается из командной строки ну например
C:\winrar.exe /e C:\1.txt

попробовал вот так

ShellExecute(Handle, 'open','C:\program files\winrar\rar.exe  ', nil, nil, SW_SHOWNORMAL);

Запускается но если добавить ключи например вот так

ShellExecute(Handle, 'open','C:\program files\winrar\rar.exe a D:\1\ D:\1.jpg ', nil, nil, SW_SHOWNORMAL);

нечего не запускается

[zumm]

Ну можно собственно из командной строки её и запустить.

[Stilet]

Lokos

Попробуй использовать функцию WinExec

[Kotofff]

Вот тут побороли примерно такую же проблему.

И еще попробуй так.

procedure RunProcess(sCmdLine: string; const Params: TStrings);
var
  pParams, pNewParams: PChar;
  iSize, i: Integer;
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  pParams:=GetEnvironmentStrings;
  iSize:=0;
  while ((pParams[iSize]<>#0) or (pParams[iSize+1]<>#0)) do Inc(iSize);
  Inc(iSize);
  GetMem(pNewParams, iSize + Length(Params.Text) - Params.Count + 1);
  try
    Move(Pointer(pParams)^,Pointer(pNewParams)^,iSize);
    for i:=0 to Params.Count-1 do begin
      StrPCopy(pNewParams + iSize, Params[i]);
      Inc(iSize, Length(Params[i]));
      Inc(iSize);
    end;
    pNewParams[iSize]:=#0;
    Inc(iSize);
    ZeroMemory(@si,sizeof(si));
    si.cb:=sizeof(si);
    si.wShowWindow:=SW_RESTORE;
    CreateProcess(PChar(sCmdLine), PChar(sCmdLine), nil, nil, True, 0, pNewParams, nil, si, pi);
  finally
    FreeMem(pNewParams);
  end;
end;

Вызов ее таков :

var
  Env: TStrings;
begin
  Env:=TStringList.Create;
  try
    Env.Add('1-й параметр');
    Env.Add('2-й параметр');
    Env.Add('3-й параметр');
    .......
    RunProcess('C:\файл.exe', Env);
  finally
    Env.Free;
  end;
end;

[FaTaL]

Так где у Вас стоит nil после пути к винрару, там и надо прописывать ключи. Посмотрите описание ShellExecute

[Пепел Феникса]

потому что ключи это отдельный параметр.(первый ваш nil)