/programs/develop/fp/rtl/kos_def.inc |
113,3 → 113,10 |
VK_F10 = 121; |
VK_F11 = 122; |
VK_F12 = 123; |
|
/// siemargl add |
const |
ExtensionSeparator = '.'; |
AllowDirectorySeparators : set of char = ['/']; |
AllowDriveSeparators : set of char = []; |
|
/programs/develop/fp/rtl/system.pp |
19,6 → 19,10 |
MaxExitCode = 65535; |
MaxPathLen = 512; |
|
InitialStkLen = 20480; /// siemargl |
|
|
|
UnusedHandle : THandle = -1; |
StdInputHandle : THandle = 0; |
StdOutputHandle: THandle = 0; |
/programs/develop/fp/rtl/sysutils.pp |
162,7 → 162,7 |
ReleaseFileRecord(Handle); |
end; |
|
function FileTruncate(Handle: THandle; Size: Longint): Boolean; |
function FileTruncate(Handle: THandle; Size: Int64): Boolean; |
begin |
Result := False; |
end; |