ATOL 90F - Setting date and time
Setting the date and time at the checkout is possible only with a closed shift, otherwise there will be an error E000-156. Date setting РЕ - 3 - 3 - 0 - ИТ - 3 - [enter date] - ИТ - 00 - РЕ Time...
ATOL 90F - Print general information about KKM
Printing of technical information about the cash register, firmware version, information about the validity period of the FN, resource, etc. etc. 00 - 3 - 0 - ИТ - 1
KKM ATOL 90F - close the fiscal accumulator
You can close the fiscal drive (FN) at the ATOL 90F cash desk without connecting to a computer by pressing the buttons in sequence: РЕ - 8 - 3 - 0 - ИТ - 4
Determining the device vendor by MAC address
The MAC address is a twelve-digit hexadecimal number of the form: D0-17-C2-98-86-A9. The first three groups (D0-17-C2) indicate device manufacturer, the rest are used to identify the device itself. Enter the first three groups of MAC address numbers in the format: XX-XX-XX
Determine if certain keys are pressed
The function checks if certain keys are pressed. From one to a combination of three. Virtual keycodes are used as parameters. [Virtual keycodes]
Usage example
Delphi/Pascal
|
1 2 3 4 5 6 7 |
begin if getKeyStatebyCode(65) = True then ShowMessage('"A" key pressed') else ShowMessage('Key "A" not pressed'); if getKeyStatebyCode(VK_CONTROL, VK_SHIFT, 65) = True then ShowMessage('Ctrl + Shift + A pressed') else ShowMessage('Ctrl + Shift + A not pressed'); end; |
Get the icon associated with a file extension
By the file extension, we get the icon associated with file type and place it in Timage.
Usage example
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses Winapi.ShellAPI; ... var fileExt : string; icoSize: Integer; begin fileExt:= '.html'; icoSize:= SHGFI_SMALLICON; Img1.Picture.Icon.Handle:= getIconByExtension(fileExt, icoSize); end; |
Extract icon from file
Extract the icon from the file and place it in Timage. The icon can be obtained both from the exe file and associated with the file type.
Usage example
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Uses Winapi.ShellAPI; ... var filePath : WideString; icoSize: Integer; begin filePath:= 'C:\Windows\regedit.exe'; icoSize:= SHGFI_SMALLICON; Img1.Picture.Icon.Handle:= getShellFileIcon(filePath, icoSize); filePath:= 'C:\Windows\System32\termsrv.dll'; icoSize:= SHGFI_LARGEICON; Img2.Picture.Icon.Handle:= getShellFileIcon(filePath, icoSize); end; |
Checking the file name for invalid characters
Before creating a file, check its name for invalid characters.
Usage example
Delphi/Pascal
|
1 2 3 4 5 6 7 |
var fileName: string; begin fileName:= 'newFile*Name'; if validateFileName(fileName) = true then ShowMessage('The file name is valid') else ShowMessage('There are invalid characters in the file name'); end; |
Get file modified date
We get the date and time of the last file modification.
Usage example
Delphi/Pascal
|
1 2 3 4 5 6 7 8 |
var filePath: WideString; modDate: string; begin filePath:= 'C:\Windows\explorer.exe'; modDate:= getFileModificateDate(filePath); ShowMessage(modDate); end; |
Determine if a file is read/write
Determine the file's read and write accessibility.
Usage example
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var filePath: WideString; const fmOpenRead = $0000; fmOpenWrite = $0001; begin filePath:= 'C:\Windows\explorer.exe'; if isFileFree(filePath, fmOpenRead) = true then ShowMessage('The file is readable') else ShowMessage('The file is not readable'); if isFileFree(filePath, fmOpenWrite) = true then ShowMessage('File is writable') else ShowMessage('The file is not writable'); end; |