|
|
@@ -58,13 +58,13 @@ type
|
|
|
DateLastWrite, {Date of last modification of file.}
|
|
|
TimeLastWrite: word; {Time of last modification of file.}
|
|
|
FileSize, {Size of file.}
|
|
|
- FileAlloc: longint; {Amount of space the file really
|
|
|
+ FileAlloc: cardinal; {Amount of space the file really
|
|
|
occupies on disk.}
|
|
|
end;
|
|
|
PFileStatus0 = ^TFileStatus0;
|
|
|
|
|
|
TFileStatus3 = object (TFileStatus)
|
|
|
- NextEntryOffset: longint; {Offset of next entry}
|
|
|
+ NextEntryOffset: cardinal; {Offset of next entry}
|
|
|
DateCreation, {Date of file creation.}
|
|
|
TimeCreation, {Time of file creation.}
|
|
|
DateLastAccess, {Date of last access to file.}
|
|
|
@@ -72,9 +72,9 @@ type
|
|
|
DateLastWrite, {Date of last modification of file.}
|
|
|
TimeLastWrite: word; {Time of last modification of file.}
|
|
|
FileSize, {Size of file.}
|
|
|
- FileAlloc: longint; {Amount of space the file really
|
|
|
+ FileAlloc: cardinal; {Amount of space the file really
|
|
|
occupies on disk.}
|
|
|
- AttrFile: longint; {Attributes of file.}
|
|
|
+ AttrFile: cardinal; {Attributes of file.}
|
|
|
end;
|
|
|
PFileStatus3 = ^TFileStatus3;
|
|
|
|
|
|
@@ -91,7 +91,7 @@ type
|
|
|
(File_Sys_ID,
|
|
|
Sectors_Per_Cluster,
|
|
|
Total_Clusters,
|
|
|
- Free_Clusters: longint;
|
|
|
+ Free_Clusters: cardinal;
|
|
|
Bytes_Per_Sector: word);
|
|
|
2: {For date/time description,
|
|
|
see file searching realted
|
|
|
@@ -106,18 +106,18 @@ type
|
|
|
PFSInfo = ^TFSInfo;
|
|
|
|
|
|
TCountryCode=record
|
|
|
- Country, {Country to query info about (0=current).}
|
|
|
- CodePage: longint; {Code page to query info about (0=current).}
|
|
|
+ Country, {Country to query info about (0=current).}
|
|
|
+ CodePage: cardinal; {Code page to query info about (0=current).}
|
|
|
end;
|
|
|
PCountryCode=^TCountryCode;
|
|
|
|
|
|
TTimeFmt = (Clock12, Clock24);
|
|
|
|
|
|
TCountryInfo=record
|
|
|
- Country, CodePage: longint; {Country and codepage requested.}
|
|
|
+ Country, CodePage: cardinal; {Country and codepage requested.}
|
|
|
case byte of
|
|
|
0:
|
|
|
- (DateFormat: longint; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
|
|
+ (DateFormat: cardinal; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
|
|
CurrencyUnit: array [0..4] of char;
|
|
|
ThousandSeparator: char; {Thousands separator.}
|
|
|
Zero1: byte; {Always zero.}
|
|
|
@@ -143,7 +143,7 @@ type
|
|
|
Zero5: byte;
|
|
|
Reserve2: array [0..4] of word);
|
|
|
1:
|
|
|
- (fsDateFmt: longint; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
|
|
+ (fsDateFmt: cardinal; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
|
|
szCurrency: array [0..4] of char;
|
|
|
{null terminated currency symbol}
|
|
|
szThousandsSeparator: array [0..1] of char;
|
|
|
@@ -181,37 +181,37 @@ const
|
|
|
{This is the correct way to call external assembler procedures.}
|
|
|
procedure syscall;external name '___SYSCALL';
|
|
|
|
|
|
-function DosSetFileInfo (Handle, InfoLevel: longint; AFileStatus: PFileStatus;
|
|
|
- FileStatusLen: longint): longint; cdecl; external 'DOSCALLS' index 218;
|
|
|
+function DosSetFileInfo (Handle: longint; InfoLevel: cardinal; AFileStatus: PFileStatus;
|
|
|
+ FileStatusLen: cardinal): cardinal; cdecl; external 'DOSCALLS' index 218;
|
|
|
|
|
|
-function DosQueryFSInfo (DiskNum, InfoLevel: longint; var Buffer: TFSInfo;
|
|
|
- BufLen: longint): longint; cdecl; external 'DOSCALLS' index 278;
|
|
|
+function DosQueryFSInfo (DiskNum, InfoLevel: cardinal; var Buffer: TFSInfo;
|
|
|
+ BufLen: cardinal): cardinal; cdecl; external 'DOSCALLS' index 278;
|
|
|
|
|
|
-function DosQueryFileInfo (Handle, InfoLevel: longint;
|
|
|
- AFileStatus: PFileStatus; FileStatusLen: longint): longint; cdecl;
|
|
|
+function DosQueryFileInfo (Handle: longint; InfoLevel: cardinal;
|
|
|
+ AFileStatus: PFileStatus; FileStatusLen: cardinal): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 279;
|
|
|
|
|
|
-function DosScanEnv (Name: PChar; var Value: PChar): longint; cdecl;
|
|
|
+function DosScanEnv (Name: PChar; var Value: PChar): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 227;
|
|
|
|
|
|
-function DosFindFirst (FileMask: PChar; var Handle: longint; Attrib: longint;
|
|
|
+function DosFindFirst (FileMask: PChar; var Handle: longint; Attrib: cardinal;
|
|
|
AFileStatus: PFileStatus; FileStatusLen: cardinal;
|
|
|
- var Count: cardinal; InfoLevel: cardinal): longint; cdecl;
|
|
|
+ var Count: cardinal; InfoLevel: cardinal): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 264;
|
|
|
|
|
|
function DosFindNext (Handle: longint; AFileStatus: PFileStatus;
|
|
|
- FileStatusLen: cardinal; var Count: cardinal): longint; cdecl;
|
|
|
+ FileStatusLen: cardinal; var Count: cardinal): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 265;
|
|
|
|
|
|
-function DosFindClose (Handle: longint): longint; cdecl;
|
|
|
+function DosFindClose (Handle: longint): cardinal; cdecl;
|
|
|
external 'DOSCALLS' index 263;
|
|
|
|
|
|
-function DosQueryCtryInfo (Size: longint; var Country: TCountryCode;
|
|
|
- var Res: TCountryInfo; var ActualSize: longint): longint; cdecl;
|
|
|
+function DosQueryCtryInfo (Size: cardinal; var Country: TCountryCode;
|
|
|
+ var Res: TCountryInfo; var ActualSize: cardinal): cardinal; cdecl;
|
|
|
external 'NLS' index 5;
|
|
|
|
|
|
-function DosMapCase (Size: longint; var Country: TCountryCode;
|
|
|
- AString: PChar): longint; cdecl; external 'NLS' index 7;
|
|
|
+function DosMapCase (Size: cardinal; var Country: TCountryCode;
|
|
|
+ AString: PChar): cardinal; cdecl; external 'NLS' index 7;
|
|
|
|
|
|
|
|
|
{****************************************************************************
|
|
|
@@ -430,7 +430,7 @@ function FindFirst (const Path: string; Attr: longint; var Rslt: TSearchRec): lo
|
|
|
var SR: PSearchRec;
|
|
|
FStat: PFileFindBuf3;
|
|
|
Count: cardinal;
|
|
|
- Err: longint;
|
|
|
+ Err: cardinal;
|
|
|
|
|
|
begin
|
|
|
New (FStat);
|
|
|
@@ -459,7 +459,7 @@ function FindNext (var Rslt: TSearchRec): longint;
|
|
|
var SR: PSearchRec;
|
|
|
FStat: PFileFindBuf3;
|
|
|
Count: cardinal;
|
|
|
- Err: longint;
|
|
|
+ Err: cardinal;
|
|
|
|
|
|
begin
|
|
|
New (FStat);
|
|
|
@@ -506,7 +506,7 @@ end ['eax', 'ebx', 'ecx', 'edx'];
|
|
|
|
|
|
function FileSetDate (Handle, Age: longint): longint;
|
|
|
var FStat: PFileStatus0;
|
|
|
- RC: longint;
|
|
|
+ RC: cardinal;
|
|
|
begin
|
|
|
New (FStat);
|
|
|
RC := DosQueryFileInfo (Handle, ilStandard, FStat,
|
|
|
@@ -663,7 +663,7 @@ end;
|
|
|
function DiskFree (Drive: byte): int64;
|
|
|
|
|
|
var FI: TFSinfo;
|
|
|
- RC: longint;
|
|
|
+ RC: cardinal;
|
|
|
|
|
|
begin
|
|
|
{In OS/2, we use the filesystem information.}
|
|
|
@@ -678,7 +678,7 @@ end;
|
|
|
function DiskSize (Drive: byte): int64;
|
|
|
|
|
|
var FI: TFSinfo;
|
|
|
- RC: longint;
|
|
|
+ RC: cardinal;
|
|
|
|
|
|
begin
|
|
|
{In OS/2, we use the filesystem information.}
|
|
|
@@ -822,8 +822,8 @@ end;
|
|
|
procedure InitInternational;
|
|
|
var Country: TCountryCode;
|
|
|
CtryInfo: TCountryInfo;
|
|
|
- Size: longint;
|
|
|
- RC: longint;
|
|
|
+ Size: cardinal;
|
|
|
+ RC: cardinal;
|
|
|
begin
|
|
|
Size := 0;
|
|
|
FillChar (Country, SizeOf (Country), 0);
|
|
|
@@ -886,7 +886,10 @@ end.
|
|
|
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.32 2003-10-08 05:22:47 yuri
|
|
|
+ Revision 1.33 2003-10-13 21:17:31 hajny
|
|
|
+ * longint to cardinal corrections
|
|
|
+
|
|
|
+ Revision 1.32 2003/10/08 05:22:47 yuri
|
|
|
* Some emx code removed
|
|
|
|
|
|
Revision 1.31 2003/10/07 21:26:34 hajny
|
Tomas Hajny