paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 14:37:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed runtool currentdirectory utf8tosys

Browse Source 
git-svn-id: trunk@26912 -
This commit is contained in:
mattias 2010-07-30 12:22:25 +00:00
parent 6066f05609
commit ee2a4b6481
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/definetemplates.pas
View File

@ -1186,7 +1186,7 @@ begin
TheProcess.CommandLine := UTF8ToSys(CmdLine); TheProcess.CommandLine := UTF8ToSys(CmdLine);
TheProcess.Options:= [poUsePipes, poStdErrToOutPut]; TheProcess.Options:= [poUsePipes, poStdErrToOutPut];
TheProcess.ShowWindow := swoHide; TheProcess.ShowWindow := swoHide;
TheProcess.CurrentDirectory:=WorkingDirectory; TheProcess.CurrentDirectory:=UTF8ToSys(WorkingDirectory);
TheProcess.Execute; TheProcess.Execute;
OutputLine:=''; OutputLine:='';
SetLength(buf,4096); SetLength(buf,4096);