mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 16:39:24 +01:00
93 lines
2.8 KiB
PHP
93 lines
2.8 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by the Free Pascal development team
|
|
|
|
File utility calls
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
Type
|
|
THandle = Longint;
|
|
|
|
Type
|
|
TSearchRec = Record
|
|
Time,Size, Attr : Longint;
|
|
Name : TFileName;
|
|
ExcludeAttr : Longint;
|
|
FindHandle : THandle;
|
|
{$ifdef Win32}
|
|
FindData : TWin32FindData;
|
|
{$endif}
|
|
{$ifdef netware}
|
|
FindData : TNetwareFindData;
|
|
{$endif}
|
|
end;
|
|
|
|
Const
|
|
{ File attributes }
|
|
faReadOnly = $00000001;
|
|
faHidden = $00000002;
|
|
faSysFile = $00000004;
|
|
faVolumeId = $00000008;
|
|
faDirectory = $00000010;
|
|
faArchive = $00000020;
|
|
faAnyFile = $0000003f;
|
|
|
|
{ File open modes }
|
|
fmOpenRead = $0000;
|
|
fmOpenWrite = $0001;
|
|
fmOpenReadWrite = $0002;
|
|
{ Share modes}
|
|
fmShareCompat = $0000;
|
|
fmShareExclusive = $0010;
|
|
fmShareDenyWrite = $0020;
|
|
fmShareDenyRead = $0030;
|
|
fmShareDenyNone = $0040;
|
|
|
|
{ File seek origins }
|
|
fsFromBeginning = 0;
|
|
fsFromCurrent = 1;
|
|
fsFromEnd = 2;
|
|
|
|
Function FileOpen (Const FileName : string; Mode : Integer) : Longint;
|
|
Function FileCreate (Const FileName : String) : Longint;
|
|
Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
|
|
Function FileWrite (Handle : Longint; const Buffer; Count : Longint) : Longint;
|
|
Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
|
|
Procedure FileClose (Handle : Longint);
|
|
Function FileTruncate (Handle,Size: Longint) : boolean;
|
|
Function FileAge (Const FileName : String): Longint;
|
|
Function FileExists (Const FileName : String) : Boolean;
|
|
Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
|
|
Function FindNext (Var Rslt : TSearchRec) : Longint;
|
|
Procedure FindClose (Var F : TSearchrec);
|
|
Function FileGetDate (Handle : Longint) : Longint;
|
|
Function FileSetDate (Handle,Age : Longint) : Longint;
|
|
Function FileGetAttr (Const FileName : String) : Longint;
|
|
Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
|
|
Function DeleteFile (Const FileName : String) : Boolean;
|
|
Function RenameFile (Const OldName, NewName : String) : Boolean;
|
|
Function FileSearch (Const Name, DirList : String) : String;
|
|
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.4 2001-04-16 18:34:46 florian
|
|
* updates from Armin commited
|
|
|
|
Revision 1.3 2001/01/18 22:09:09 michael
|
|
+ Merged fixes from fixbranch - file modes
|
|
|
|
Revision 1.2 2000/07/13 11:33:51 michael
|
|
+ removed logs
|
|
|
|
}
|