Запуск через CreateProcess с параметрами

[Rlaereynahia]

Помогите пожалуйста переделать код чтобы можно было запускать через CreateProcess с параметрами сейчас используеться ShellExecute

Исходник https://yadi.sk/d/3-MHr0RosGJNB

P.S
Знаний в Delphi пока что мало!

[northener]

Так в чем таки проблема? Код почти правильный только не задается путь по которому лежит файл Name.exe. А параметры вообще пустая строка.

[Rlaereynahia]

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

Так в чем таки проблема? Код почти правильный только не задается путь по которому лежит файл Name.exe. А параметры вообще пустая строка.

Я знаю я их убрал
Сейчас с параметрами дам исходник

[Rlaereynahia]

Как переделать под CreateProcess ?
Вот полный исходник https://yadi.sk/d/MuC8SU7_sGKza

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  if FGame > 0 then
  begin
    FillChar(StartupInfo, SizeOf(StartupInfo), 0);
    FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);
    StartupInfo.cb := SizeOf(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_SHOWNORMAL;

    if CreateProcess(PChar(PGame[FGame].FileName),
                     PChar(PGame[FGame].Parameters),
                     nil,
                     nil,
                     False,
                     CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                     nil,
                     nil,
                     StartupInfo,
                     ProcessInfo) then
    begin
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE); // Ждём завершения процесса
      CloseHandle(ProcessInfo.hThread);
      CloseHandle(ProcessInfo.hProcess);
    end;
  end;
end;

[Rlaereynahia]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  if FGame > 0 then
  begin
    FillChar(StartupInfo, SizeOf(StartupInfo), 0);
    FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);
    StartupInfo.cb := SizeOf(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_SHOWNORMAL;

    if CreateProcess(PChar(PGame[FGame].FileName),
                     PChar(PGame[FGame].Parameters),
                     nil,
                     nil,
                     False,
                     CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                     nil,
                     nil,
                     StartupInfo,
                     ProcessInfo) then
    begin
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE); // Ждём завершения процесса
      CloseHandle(ProcessInfo.hThread);
      CloseHandle(ProcessInfo.hProcess);
    end;
  end;
end;

Не запускает вообще!