ХАНДЫФАР

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

Параметры:

  1. Указатель на строку с именем файла, который нужно удалить.

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

  • Если 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. ____dSuccess db "Файл был успешно "
  10. _____________db "удален!\0"
  11. ____dError___db "Произошла ошибка при "
  12. _____________db "удалении '%s'. Код "
  13. _____________db "ошибки: %d\0"
  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. ________pushs___ds:[fName]
  25. ________call____DeleteFileEx
  27. ________jnc_____@NoDeleteFileError
  29. ________push____ax
  30. ________pushs___ds:[fName]
  31. ________leaax___ds:[dError]
  32. ________call____PrintFormatString
  33. ________add_____sp, 4
  34. ________jmp_____@Done
  36. ____@NoDeleteFileError:
  37. ________leaax___ds:[dSuccess]
  38. ________call____WriteStringEx
  40. ____@Done:
  41. ________push____0
  42. ________call____ExitProcessEx
  43. ____main endp
  45. code ends
  46. end main
Функция DeleteFileEx удаляет файл с указанным именем. Функция DeleteFileEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Указатель на строку с именем файла, который нужно удалить.

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

  • Если 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. ____dSuccess db "Файл был успешно удален!\0"
  10. ____dError___db "Произошла ошибка при удалении '%s'. Код ошибки: %d\0"
  11. data ends
  13. code segment public
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc____________; Подключаем файл с функциями
  16. ____include Handymac.inc____________; Подключаем файл с макросами
  18. ____main proc
  19. ________call____SetDataSegment______; Вызываем процедуру SetDataSegment
  21. ________pushs___ds:[fName]__________; Ложим на вершину стека адрес переменной fName
  22. ________call____DeleteFileEx________; Вызываем процедуру DeleteFileEx(fName) := AX и CF
  24. ________jnc_____@NoDeleteFileError__; Если CF=0, то прыгаем на метку @NoDeleteFileError
  26. ________push____ax__________________; 3-й: Ложим на вершину стека ax (код ошибки)
  27. ________pushs___ds:[fName]__________; 2-й: Ложим на вершину стека адрес переменной fName
  28. ________leaax___ds:[dError]_________; 1-й: Загружаем адрес строки формата dError в регистр ds:ax
  29. ________call____PrintFormatString___; Вызываем процедуру PrintFormatString(ax:dError, fName, ax)
  30. ________add_____sp, 4_______________; Выравниваем стек
  31. ________jmp_____@Done_______________; Выполняем безусловный переход на метку @Done
  33. ____@NoDeleteFileError:
  34. ________leaax___ds:[dSuccess]_______; Загружаем адрес строки формата dSuccess в регистр ds:ax
  35. ________call____WriteStringEx_______; Вызываем процедуру WriteStringEx(dSuccess)
  37. ____@Done:
  38. ________push____0___________________; Ложим на вершину стека байтовое значение кода возврата
  39. ________call____ExitProcessEx_______; Вызываем процедуру ExitProcess(0)
  40. ____main endp
  42. code ends
  43. end main
Made on
Tilda