paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-17 19:51:26 +01:00
parent 3180a5e83a
commit e794b85242
1 changed files with 44 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
packages/fcl-process/src/processunicode.pp
View File

@ -1,49 +1,44 @@
{ <?xml version="1.0" encoding="UTF-8"?>
This file is part of the Free Component Library (FCL) <CONFIG>
Copyright (c) 1999-2000 by the Free Pascal development team <ProjectOptions>
<Version Value="12"/>
See the file COPYING.FPC, included in this distribution, <General>
for details about the copyright. <Flags>
<MainUnitHasCreateFormStatements Value="False"/>
This program is distributed in the hope that it will be useful, <MainUnitHasTitleStatement Value="False"/>
but WITHOUT ANY WARRANTY; without even the implied warranty of <MainUnitHasScaledStatement Value="False"/>
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. <UseDefaultCompilerOptions Value="True"/>
</Flags>
**********************************************************************} <SessionStorage Value="InProjectDir"/>
{$mode objfpc} <MainUnit Value="-1"/>
{$h+} <UseAppBundle Value="False"/>
unit processunicode; <ResourceType Value="res"/>
</General>
interface <BuildModes>
<Item Name="default" Default="True"/>
Uses Classes, </BuildModes>
pipes, <PublishOptions>
SysUtils, <Version Value="2"/>
Math, <UseFileFilters Value="True"/>
Process; </PublishOptions>
<RunParams>
Type <FormatVersion Value="2"/>
TProcessOption = process.TProcessOption; </RunParams>
TShowWindowOptions = process.TShowWindowOptions; </ProjectOptions>
TStartupOption = process.TStartupOption ; <CompilerOptions>
TProcessPriority = process.TProcessPriority; <Version Value="11"/>
TProcessOptions = process.TProcessOptions; </CompilerOptions>
TStartupOptions = process.TStartupOptions; <Debugging>
{$ifdef UNIX} <Exceptions>
TProcessForkEvent = Process.TProcessForkEvent; <Item>
{$endif UNIX} <Name Value="EAbort"/>
</Item>
TRunCommandEventCode = Process.TRunCommandEventCode; <Item>
TOnRunCommandEvent = Process.TOnRunCommandEvent; <Name Value="ECodetoolError"/>
EProcess = Process.EProcess; </Item>
<Item>
{$macro on} <Name Value="EFOpenError"/>
{$IF SIZEOF(CHAR)=1} </Item>
// For unicode RTL, there is nothing to redefine. </Exceptions>
{$define processunicodestring} </Debugging>
{$ENDIF} </CONFIG>
{$define TProcessnamemacro:=TProcess}
{$i processbody.inc}
end.