|
|
@@ -209,14 +209,14 @@ type
|
|
|
case byte of
|
|
|
0:
|
|
|
(DateFormat: cardinal; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
|
|
- CurrencyUnit: array [0..4] of char;
|
|
|
- ThousandSeparator: char; {Thousands separator.}
|
|
|
+ CurrencyUnit: array [0..4] of AnsiChar;
|
|
|
+ ThousandSeparator: AnsiChar; {Thousands separator.}
|
|
|
Zero1: byte; {Always zero.}
|
|
|
- DecimalSeparator: char; {Decimals separator,}
|
|
|
+ DecimalSeparator: AnsiChar; {Decimals separator,}
|
|
|
Zero2: byte;
|
|
|
- DateSeparator: char; {Date separator.}
|
|
|
+ DateSeparator: AnsiChar; {Date separator.}
|
|
|
Zero3: byte;
|
|
|
- TimeSeparator: char; {Time separator.}
|
|
|
+ TimeSeparator: AnsiChar; {Time separator.}
|
|
|
Zero4: byte;
|
|
|
CurrencyFormat, {Bit field:
|
|
|
Bit 0: 0=indicator before value
|
|
|
@@ -230,20 +230,20 @@ type
|
|
|
currency indication.}
|
|
|
TimeFormat: TTimeFmt; {12/24 hour.}
|
|
|
Reserve1: array [0..1] of word;
|
|
|
- DataSeparator: char; {Data list separator}
|
|
|
+ DataSeparator: AnsiChar; {Data list separator}
|
|
|
Zero5: byte;
|
|
|
Reserve2: array [0..4] of word);
|
|
|
1:
|
|
|
(fsDateFmt: cardinal; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
|
|
- szCurrency: array [0..4] of char;
|
|
|
+ szCurrency: array [0..4] of AnsiChar;
|
|
|
{null terminated currency symbol}
|
|
|
- szThousandsSeparator: array [0..1] of char;
|
|
|
+ szThousandsSeparator: array [0..1] of AnsiChar;
|
|
|
{Thousands separator + #0}
|
|
|
- szDecimal: array [0..1] of char;
|
|
|
+ szDecimal: array [0..1] of AnsiChar;
|
|
|
{Decimals separator + #0}
|
|
|
- szDateSeparator: array [0..1] of char;
|
|
|
+ szDateSeparator: array [0..1] of AnsiChar;
|
|
|
{Date separator + #0}
|
|
|
- szTimeSeparator: array [0..1] of char;
|
|
|
+ szTimeSeparator: array [0..1] of AnsiChar;
|
|
|
{Time separator + #0}
|
|
|
fsCurrencyFmt, {Bit field:
|
|
|
Bit 0: 0=indicator before value
|
|
|
@@ -257,7 +257,7 @@ type
|
|
|
currency indication}
|
|
|
fsTimeFmt: byte; {0=12,1=24 hours}
|
|
|
abReserved1: array [0..1] of word;
|
|
|
- szDataSeparator: array [0..1] of char;
|
|
|
+ szDataSeparator: array [0..1] of AnsiChar;
|
|
|
{Data list separator + #0}
|
|
|
abReserved2: array [0..4] of word);
|
|
|
end;
|
|
|
@@ -288,24 +288,24 @@ type
|
|
|
Related:word; {Independent/child session (0/1).}
|
|
|
FgBg:word; {Foreground/background (0/1).}
|
|
|
TraceOpt:word; {No trace/trace this/trace all (0/1/2).}
|
|
|
- PgmTitle:PChar; {Program title.}
|
|
|
- PgmName:PChar; {Filename to program.}
|
|
|
- PgmInputs:PChar; {Command parameters (nil allowed).}
|
|
|
- TermQ:PChar; {System queue. (nil allowed).}
|
|
|
- Environment:PChar; {Environment to pass (nil allowed).}
|
|
|
+ PgmTitle:PAnsiChar; {Program title.}
|
|
|
+ PgmName:PAnsiChar; {Filename to program.}
|
|
|
+ PgmInputs:PAnsiChar; {Command parameters (nil allowed).}
|
|
|
+ TermQ:PAnsiChar; {System queue. (nil allowed).}
|
|
|
+ Environment:PAnsiChar; {Environment to pass (nil allowed).}
|
|
|
InheritOpt:word; {Inherit environment from shell/
|
|
|
inherit environment from parent (0/1).}
|
|
|
SessionType:word; {Auto/full screen/window/presentation
|
|
|
manager/full screen Dos/windowed Dos
|
|
|
(0/1/2/3/4/5/6/7).}
|
|
|
- Iconfile:PChar; {Icon file to use (nil allowed).}
|
|
|
+ Iconfile:PAnsiChar; {Icon file to use (nil allowed).}
|
|
|
PgmHandle:cardinal; {0 or the program handle.}
|
|
|
PgmControl:word; {Bitfield describing initial state
|
|
|
of windowed sessions.}
|
|
|
InitXPos,InitYPos:word; {Initial top coordinates.}
|
|
|
InitXSize,InitYSize:word; {Initial size.}
|
|
|
Reserved:word;
|
|
|
- ObjectBuffer:PChar; {If a module cannot be loaded, its
|
|
|
+ ObjectBuffer:PAnsiChar; {If a module cannot be loaded, its
|
|
|
name will be returned here.}
|
|
|
ObjectBuffLen:cardinal; {Size of your buffer.}
|
|
|
end;
|
|
|
@@ -401,10 +401,10 @@ function DosQueryFileInfo (Handle: THandle; InfoLevel: cardinal;
|
|
|
AFileStatus: PFileStatus; FileStatusLen: cardinal): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 279;
|
|
|
|
|
|
-function DosScanEnv (Name: PChar; var Value: PChar): cardinal; cdecl;
|
|
|
+function DosScanEnv (Name: PAnsiChar; var Value: PAnsiChar): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 227;
|
|
|
|
|
|
-function DosFindFirst (FileMask: PChar; var Handle: THandle; Attrib: cardinal;
|
|
|
+function DosFindFirst (FileMask: PAnsiChar; var Handle: THandle; Attrib: cardinal;
|
|
|
AFileStatus: PFileStatus; FileStatusLen: cardinal;
|
|
|
var Count: cardinal; InfoLevel: cardinal): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 264;
|
|
|
@@ -421,12 +421,12 @@ function DosQueryCtryInfo (Size: cardinal; var Country: TCountryCode;
|
|
|
external 'NLS' index 5;
|
|
|
|
|
|
function DosMapCase (Size: cardinal; var Country: TCountryCode;
|
|
|
- AString: PChar): cardinal; cdecl; external 'NLS' index 7;
|
|
|
+ AString: PAnsiChar): cardinal; cdecl; external 'NLS' index 7;
|
|
|
|
|
|
procedure DosSleep (MSec: cardinal); cdecl; external 'DOSCALLS' index 229;
|
|
|
|
|
|
function DosCreateQueue (var Handle: THandle; Priority:longint;
|
|
|
- Name: PChar): cardinal; cdecl;
|
|
|
+ Name: PAnsiChar): cardinal; cdecl;
|
|
|
external 'QUECALLS' index 16;
|
|
|
|
|
|
function DosReadQueue (Handle: THandle; var ReqBuffer: TRequestData;
|
|
|
@@ -703,10 +703,10 @@ begin
|
|
|
Rslt.FindHandle := THandle ($FFFFFFFF);
|
|
|
Count := 1;
|
|
|
if FSApi64 then
|
|
|
- Err := DosFindFirst (PChar (SystemEncodedPath), Rslt.FindHandle,
|
|
|
+ Err := DosFindFirst (PAnsiChar (SystemEncodedPath), Rslt.FindHandle,
|
|
|
Attr and FindResvdMask, FStat, SizeOf (FStat^), Count, ilStandardL)
|
|
|
else
|
|
|
- Err := DosFindFirst (PChar (SystemEncodedPath), Rslt.FindHandle,
|
|
|
+ Err := DosFindFirst (PAnsiChar (SystemEncodedPath), Rslt.FindHandle,
|
|
|
Attr and FindResvdMask, FStat, SizeOf (FStat^), Count, ilStandard);
|
|
|
if (Err = 0) and (Count = 0) then
|
|
|
Err := 18;
|
|
|
@@ -1193,7 +1193,7 @@ begin
|
|
|
DecimalSeparator := CtryInfo.DecimalSeparator;
|
|
|
ThousandSeparator := CtryInfo.ThousandSeparator;
|
|
|
CurrencyFormat := CtryInfo.CurrencyFormat;
|
|
|
- CurrencyString := PChar (CtryInfo.CurrencyUnit);
|
|
|
+ CurrencyString := PAnsiChar (CtryInfo.CurrencyUnit);
|
|
|
end;
|
|
|
InitAnsi;
|
|
|
InitInternationalGeneric;
|
|
|
@@ -1266,8 +1266,8 @@ begin
|
|
|
FillChar (SD, SizeOf (SD), 0);
|
|
|
SD.Length := 24;
|
|
|
SD.Related := ssf_Related_Child;
|
|
|
- SD.PgmName := PChar (Path);
|
|
|
- SD.PgmInputs := PChar (ComLine);
|
|
|
+ SD.PgmName := PAnsiChar (Path);
|
|
|
+ SD.PgmInputs := PAnsiChar (ComLine);
|
|
|
Str (GetProcessID, SPID);
|
|
|
Str (ThreadID, STID);
|
|
|
QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0;
|
Michael VAN CANNEYT