fixed support for filenames with spaces in exec

git-svn-id: trunk@1738 -
This commit is contained in:
olle 2005-11-13 20:56:40 +00:00
parent f29fde8978
commit 0fde736720

View File

@ -299,7 +299,7 @@ var
Begin
{Make ToolServers working directory in sync with our working directory}
PathArgToFullPath(':', wdpath);
wdpath:= 'Directory ' + wdpath;
wdpath:= 'Directory ''' + wdpath + '''';
err:= ExecuteToolserverScript(PChar(wdpath), LastDosExitCode);
{TODO Only change path when actually needed. But this requires some
change counter to be incremented each time wd is changed. }