paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +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 if Params<>'' then
CmdLine:=CmdLine+' '+Params; CmdLine:=CmdLine+' '+Params;
//DebugLn(['RunTool ',Params]); //DebugLn(['RunTool ',Params]);
TheProcess.CommandLine := CmdLine; TheProcess.CommandLine := UTF8ToSys(CmdLine);
TheProcess.Options:= [poUsePipes, poStdErrToOutPut]; TheProcess.Options:= [poUsePipes, poStdErrToOutPut];
TheProcess.ShowWindow := swoHide; TheProcess.ShowWindow := swoHide;
TheProcess.CurrentDirectory:=WorkingDirectory; TheProcess.CurrentDirectory:=WorkingDirectory;
@ -1467,7 +1467,7 @@ begin
// create empty file // create empty file
try try
fs:=TFileStream.Create(TestFilename,fmCreate); fs:=TFileStream.Create(UTF8ToSys(TestFilename),fmCreate);
fs.Free; fs.Free;
except except
debugln(['RunFPCVerbose unable to create test file '+TestFilename]); debugln(['RunFPCVerbose unable to create test file '+TestFilename]);