From: rrt <unknown>
Date: Tue, 3 Jul 2001 16:52:45 +0000 (+0000)
Subject: [project @ 2001-07-03 16:52:45 by rrt]
X-Git-Tag: Approximately_9120_patches~1623
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ec6e32cac59731a4eb57c1cd7b03046cc51b964d;p=ghc-hetmet.git

[project @ 2001-07-03 16:52:45 by rrt]
Allow child process to inherit parent's handles.
---

diff --git a/ghc/InstallShield/runexe.c b/ghc/InstallShield/runexe.c
index e55845d..c1becfb 100644
--- a/ghc/InstallShield/runexe.c
+++ b/ghc/InstallShield/runexe.c
@@ -46,7 +46,7 @@ int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmd
   if (strlen(lpszCmdParam) == 0) die("no parameters given");
   warn("cwd: %s\n", buf);
   warn("runexing >>>%s<<<\n", lpszCmdParam);
-  if (!CreateProcess(NULL, lpszCmdParam, NULL, NULL, FALSE, 0, NULL, NULL, &sInfo, &pInfo))
+  if (!CreateProcess(NULL, lpszCmdParam, NULL, NULL, TRUE, 0, NULL, NULL, &sInfo, &pInfo))
     die("could not create process");
 
   WaitForSingleObject(pInfo.hProcess, INFINITE);