From 444a297cee7c90ee350d955130f281298ed2772a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 13 Aug 2014 06:27:01 +0200
Subject: [PATCH] fix parameters passed to proj output exe were not split

---
 src/ce_main.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index f0694d25..bc4e472f 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -297,7 +297,7 @@ implementation
 {$R *.lfm}
 
 uses
-  SynMacroRecorder;
+  SynMacroRecorder, strutils;
 
 {$REGION Standard Comp/Obj------------------------------------------------------}
 constructor TCEMainForm.create(aOwner: TComponent);
@@ -1317,7 +1317,7 @@ end;
 procedure TCEMainForm.runProject(const aProject: TCEProject; const runArgs: string = '');
 var
   runproc: TProcess;
-  procname: string;
+  procname, prm: string;
   i: NativeInt;
 begin
   if aProject.currentConfiguration.outputOptions.binaryKind <>
@@ -1329,7 +1329,13 @@ begin
   runproc := TProcess.Create(nil);
   try
     aProject.currentConfiguration.runOptions.setProcess(runProc);
-    runproc.Parameters.AddText(runArgs);
+    prm := ''; i := 1;
+    repeat
+        prm := ExtractDelimited(i, runArgs, [' ']);
+        if prm <> '' then
+          runProc.Parameters.AddText(prm);
+        Inc(i);
+    until prm = '';
     procname := aProject.outputFilename;
 
     if not fileExists(procname) then