From 99ffaa3306fec42279aac6ba0e88656f2929bd0c Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 16 Jun 2016 02:49:58 +0200 Subject: [PATCH] CE projects, run option, CUrrentDirectory can include symbolic strings --- src/ce_dmdwrap.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/ce_dmdwrap.pas b/src/ce_dmdwrap.pas index b84d1ce9..85d0a0eb 100644 --- a/src/ce_dmdwrap.pas +++ b/src/ce_dmdwrap.pas @@ -1238,7 +1238,7 @@ begin aProcess.Executable := fExecutable; aProcess.ShowWindow := fShowWin; aProcess.Options := fOptions; - aProcess.CurrentDirectory := fWorkDir; + aProcess.CurrentDirectory := fSymStringExpander.expand(fWorkDir); aProcess.StartupOptions := aProcess.StartupOptions + [suoUseShowWindow]; end; @@ -1249,7 +1249,7 @@ begin aProcess.Executable := fExecutable; aProcess.ShowWindow := fShowWin; aProcess.Options := fOptions; - aProcess.CurrentDirectory := fWorkDir; + aProcess.CurrentDirectory := fSymStringExpander.expand(fWorkDir); aProcess.StartupOptions := aProcess.StartupOptions + [suoUseShowWindow]; end; @@ -1260,7 +1260,7 @@ begin aProcess.Executable := fExecutable; aProcess.ShowWindow := fShowWin; aProcess.Options := fOptions; - aProcess.CurrentDirectory := fWorkDir; + aProcess.CurrentDirectory := fSymStringExpander.expand(fWorkDir); aProcess.StartupOptions := aProcess.StartupOptions + [suoUseShowWindow]; end;