# unit sysutils

### Various system utilities

author: Tomasz Biela (Tebe)

http://www.freepascal.org/docs-html/rtl/sysutils/index-5.html

## Constants:

name: | value: | description:
--- | --- | ---
faReadOnly | $01 |
faHidden | $02 |
faSysFile | $04 |
faVolumeID | $08 |
faDirectory | $10 |
faArchive | $20 |
faAnyFile | $3f |

## Types:

name: | type: | description:
--- | --- | ---
TSearchRec | record Attr: Byte; Name: TString; FindHandle: Pointer; end; |

## Interface:

name: | description:
--- | ---
AnsiUpperCase | #### function AnsiUpperCase(const a: string): string; Return an uppercase version of a string ##### parameters: const a: string[255] ##### returns: string[255]
Beep | #### procedure Beep; Sound the system bell
Click | #### procedure Click ; assembler; Sound the system click
DeleteFile | #### function DeleteFile(var FileName: TString): Boolean; assembler; Delete a file from the filesystem ##### parameters: var FileName: string[32] ##### returns: TRUE - the file was successfully removed FALSE - I/O error
ExtractFileExt | #### function ExtractFileExt(const a: string): TString; Return the extension from a filename ##### parameters: const a: string[255] ##### returns: string[32]
ExtractFilePath | #### function ExtractFilePath(const a: string): string; Extract the path from a filename ##### parameters: const a: string[255] ##### returns: string[255]
FileExists | #### function FileExists(name: TString): Boolean; Check whether a particular file exists in the filesystem ##### parameters: name: string[32] ##### returns: TRUE - file exists FALSE - file not exists
FindClose | #### procedure FindClose(var f: TSearchRec); assembler; Close a find handle ##### parameters: var f: TSearchRec
FindFirst | #### function FindFirst (const FileMask: TString; Attributes: Byte; var SearchResult: TSearchRec): byte; Start a file search and return a findhandle ##### parameters: FileMask: string[32] Attributes: Byte SearchResult: TSearchRec ##### returns: =0 file matching the specified criteria is found
FindNext | #### function FindNext(var f: TSearchRec): byte; assembler; Find the next entry in a findhandle ##### parameters: var f: TSearchRec ##### returns: =0 record matching the criteria, successful
GetTickCount | #### function GetTickCount: cardinal; assembler; Get tick count ##### returns: 32bit tick count
IntToHex | #### function IntToHex(Value: cardinal; Digits: byte): TString; register; assembler; Convert an integer value to a hexadecimal string ##### parameters: Value: cardinal (32bit) Digits - number of characters ##### returns: string[32]
IntToStr | #### function IntToStr(a: integer): ^string; assembler; Convert an integer value to a decimal string ##### parameters: a: integer ##### returns: pointer to string
RenameFile | #### function RenameFile(var OldName,NewName: TString): Boolean; assembler; Renames a file from OldName to NewName ##### parameters: var OldName: string[32] var NewName: string[32] ##### returns: TRUE - successful FALSE - I/O error
StrToFloat | #### function StrToFloat(var s: TString): real; Convert a string to a floating-point value ##### parameters: var s: string[32] ##### returns: real (Q24.8)
StrToInt | #### function StrToInt(const s: char): byte; assembler; overload; Convert a char to an byte value ##### parameters: s: char ##### returns: byte
StrToInt | #### function StrToInt(const s: TString): integer; assembler; overload; Convert a string to an integer value ##### parameters: s: string[32] ##### returns: integer (32bit)