ХАНДЫФАР

Функция CloseHandleEx закрывает файловый дескриптор. Функция CloseHandleEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Дескриптор файла, полученный после вызова функций CreateFile/Ex или OpenFile/Ex.

Возвращаемое значение:

  • Если CF = 0: Дескриптор файла успешно закрыт.
  • Если CF = 1: AX содержит код ошибки.

Состояние флагов:

  • Функция влияет на все флаги.

Особенности:

  • Функция не изменяет значения регистров, кроме AX и флагов.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fName___db "test.txt", 0
  9. ____fBuffer db 255 dup(0)
  10. ____rError__db "Произошла ошибка при "
  11. ____________db "чтении из '%s'. Код "
  12. ____________db "ошибки: %d\0"
  13. ____fHandle_dw ?
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc
  19. ____include Handymac.inc
  21. ____main proc
  22. ________call____SetDataSegment
  24. ________push____READ_WRITE
  25. ________pushs___ds:[fName]
  26. ________call____OpenFileEx
  27. ________mov_____fHandle, ax
  29. ________push____0FFh
  30. ________push____fHandle
  31. ________pushs___ds:[fBuffer]
  32. ________call____ReadFileEx
  34. ________jnc_____@NoReadFileError
  36. ________push____ax
  37. ________pushs___ds:[fName]
  38. ________leaax___ds:[rError]
  39. ________call____PrintFormatString
  40. ________add_____sp, 4
  41. ________jmp_____@Done
  43. ____@NoReadFileError:
  44. ________pushs___ds:[fBuffer]
  45. ________call____WriteStringEx
  47. ____@Done:
  48. ________push____fHandle
  49. ________call____CloseHandleEx
  51. ________push____0
  52. ________call____ExitProcessEx
  53. ____main endp
  55. code ends
  56. end main
Функция CloseHandleEx закрывает файловый дескриптор. Функция CloseHandleEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Дескриптор файла, полученный после вызова функций CreateFile/Ex или OpenFile/Ex.

Возвращаемое значение:

  • Если CF = 0: Дескриптор файла успешно закрыт.
  • Если CF = 1: AX содержит код ошибки.

Состояние флагов:

  • Функция влияет на все флаги.

Особенности:

  • Функция не изменяет значения регистров, кроме AX и флагов.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fName___db "test.txt", 0
  9. ____fBuffer db 255 dup(0)
  10. ____rError__db "Произошла ошибка при чтении из '%s'. Код ошибки: %d\0"
  11. ____fHandle_dw ?
  12. data ends
  14. code segment public
  15. ____assume _ds:data, cs:code
  16. ____include Handyfar.inc___________; Подключаем файл с функциями
  17. ____include Handymac.inc___________; Подключаем файл с макросами
  19. ____main proc
  20. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  22. ________push____READ_WRITE_________; 2-й: Ложим на вершину стека атрибут READ_WRITE
  23. ________pushs___ds:[fName]_________; 1-й: Ложим на вершину стека адрес переменной fName
  24. ________call____OpenFileEx_________; Вызываем процедуру OpenFileEx(fName, READ_WRITE) := AX и CF
  25. ________mov_____fHandle, ax________; Сохраняем файловый дескриптор в переменной fHandle
  27. ________push____0FFh_______________; 3-й: Ложим на вершину стека число байт для считывания
  28. ________push____fHandle____________; 2-й: Ложим на вершину стека файловый дескриптор fHandle
  29. ________pushs___ds:[fBuffer]_______; 1-й: Ложим на вершину стека адрес переменной fName
  30. ________call____ReadFileEx_________; Вызываем процедуру ReadFileEx(fBuffer, fHandle, 255) := AX и CF
  32. ________jnc_____@NoReadFileError___; Если CF=0, то прыгаем на метку @NoReadFileError
  34. ________push____ax_________________; 3-й: Ложим на вершину стека ax (код ошибки)
  35. ________pushs___ds:[fName]_________; 2-й: Ложим на вершину стека адрес переменной fName
  36. ________leaax___ds:[rError]________; 1-й: Загружаем адрес строки формата rError в регистр ds:ax
  37. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:rError, fName, ax)
  38. ________add_____sp, 4______________; Выравниваем стек
  39. ________jmp_____@Done______________; Выполняем безусловный переход на метку @Done
  41. ____@NoReadFileError:
  42. ________pushs___ds:[fBuffer]_______; Ложим на вершину стека адрес переменной fBuffer
  43. ________call____WriteStringEx______; Вызываем процедуру WriteStringEx(fBuffer)
  45. ____@Done:
  46. ________push____fHandle____________; Ложим на вершину стека файловый дескриптор fHandle
  47. ________call____CloseHandleEx______; Вызываем процедуру CloseHandleEx(fHandle)
  49. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  50. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  51. ____main endp
  53. code ends
  54. end main
Made on
Tilda