CE projects, run option, CUrrentDirectory can include symbolic strings

This commit is contained in:
Basile Burg 2016-06-16 02:49:58 +02:00
parent a6ca4aac42
commit 99ffaa3306
1 changed files with 3 additions and 3 deletions

View File

@ -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;