АТОЛ 90Ф - Установка даты и времени
Установка даты и времени в кассе возможна только при закрытой смене, иначе будет ошибка E000-156. Установка даты РЕ - 3 - 3 - 0 - ИТ - 3 - [ввести дату] - ИТ - 00 - РЕ Установка времени РЕ - Х - ИТ -...
АТОЛ 90Ф - Печать общей информация о ККМ
Печать технической информации о ККМ, версии прошивки, информация о сроке действия ФН, ресурсе и т. д. 00 - 3 - 0 - ИТ - 1
ККМ АТОЛ 90Ф - закрыть фискальный накопитель
Закрыть фискальный накопитель (ФН) в кассе АТОЛ 90Ф, можно без подключения к компьютеру, нажав последовательно кнопки: РЕ - 8 - 3 - 0 - ИТ - 4
Определение производителя устройства по MAC адресу
МАС адрес представляет из себя двенадцатизначное шестнадцатеричное число вида: D0-17-C2-98-86-A9. Первые три группы (D0-17-C2) указывают на производителя устройства, остальные используются для идентификации самого устройства. Введите первые три группы чисел MAC адреса в формате: XX-XX-XX
Определить, нажаты ли определенные клавиши
Функция проверяет нажаты ли определенные клавиши. От одной, до сочетания из трех. В качестве параметров используются виртуальные коды клавиш. [Виртуальные коды клавиш]
Пример использования
Delphi/Pascal
|
1 2 3 4 5 6 7 |
begin if getKeyStatebyCode(65) = True then ShowMessage('Клавиша "A" нажата') else ShowMessage('Клавиша "A" не нажата'); if getKeyStatebyCode(VK_CONTROL, VK_SHIFT, 65) = True then ShowMessage('Клавишы Ctrl+Shift+A нажаты') else ShowMessage('Клавиша Ctrl+Shift+A не нажаты'); end; |
Получить иконку ассоциированную с расширением файла
По расширению файла получаем иконку ассоциированную с данным типом файла и помещаем ее в Timage.
Пример использования
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; |
Извлечь иконку из файла
Извлекаем иконку из файла и помещаем ее в Timage. Иконку можно получить как из exe файла, так и ассоциированную с типом файла.
Пример использования
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; |
Проверка имени файла на недопустимые символы
Перед созданием файла, проверяем его имя на наличие недопустимых символов.
Пример использования
Delphi/Pascal
|
1 2 3 4 5 6 7 |
var fileName: string; begin fileName:= 'newFile*Name'; if validateFileName(fileName) = true then ShowMessage('Имя файла допустимо') else ShowMessage('В имени файла есть недопустимные символы'); end; |
Получить дату изменения файла
Получаем дату и время последнего изменения файла.
Пример использования
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; |
Определить, доступен ли файл для чтения и записи
Определяем доступность файла на чтение и запись.
Пример использования
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('Файл доступен для чтения') else ShowMessage('Файл не доступен для чтения'); if isFileFree(filePath, fmOpenWrite) = true then ShowMessage('Файл доступен для записи') else ShowMessage('Файл не доступен для записи'); end; |