paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:56:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: runtool: utf8tosys

Browse Source 
git-svn-id: trunk@26908 -
This commit is contained in:
mattias 2010-07-29 22:17:42 +00:00
parent 6bcec286b1
commit 08521ea248
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/definetemplates.pas
View File

@ -1183,7 +1183,7 @@ begin
if Params<>'' then
CmdLine:=CmdLine+' '+Params;
//DebugLn(['RunTool ',Params]);
TheProcess.CommandLine := CmdLine;
TheProcess.CommandLine := UTF8ToSys(CmdLine);
TheProcess.Options:= [poUsePipes, poStdErrToOutPut];
TheProcess.ShowWindow := swoHide;
TheProcess.CurrentDirectory:=WorkingDirectory;
@ -1467,7 +1467,7 @@ begin
// create empty file
try
fs:=TFileStream.Create(TestFilename,fmCreate);
fs:=TFileStream.Create(UTF8ToSys(TestFilename),fmCreate);
fs.Free;
except
debugln(['RunFPCVerbose unable to create test file '+TestFilename]);