ХАНДЫФАР

Функция RenameFolderEx переименовывает каталог\папку. Функция RenameFolderEx автоматически выравнивает стек на 4 байта.

Параметры:

  1. Указатель на строку с текущим именем каталога\папки.
  2. Указатель на строку с новым именем каталога\папки.

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

  • Если CF = 0: Каталог\папка успешно переименован(а).
  • Если CF = 1: AX содержит код ошибки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fOldName db "Assembly", 0
  9. ____fNewName db "Handyfar", 0
  10. ____rSuccess db "Папка была успешно "
  11. _____________db "переименована в '%s'.\0"
  12. ____rError___db "Произошла ошибка при "
  13. _____________db "переименовании '%s' в "
  14. _____________db "'%s'. Код ошибки: %d\0"
  15. data ends
  17. code segment public
  18. ____assume _ds:data, cs:code
  19. ____include Handyfar.inc
  20. ____include Handymac.inc
  22. ____main proc
  23. ________call____SetDataSegment
  25. ________pushs___es:[fNewName]
  26. ________pushs___ds:[fOldName]
  27. ________call____RenameFolderEx
  29. ________jnc_____@NoRenameFolderError
  31. ________push____ax
  32. ________pushs___ds:[fNewName]
  33. ________pushs___ds:[fOldName]
  34. ________leaax___ds:[rError]
  35. ________call____PrintFormatString
  36. ________add_____sp, 6
  37. ________jmp_____@Done
  39. ____@NoRenameFolderError:
  40. ________pushs___ds:[fNewName]
  41. ________leaax___ds:[rSuccess]
  42. ________call____PrintFormatString
  43. ________add_____sp, 2
  45. ____@Done:
  46. ________push____0
  47. ________call____ExitProcessEx
  48. ____main endp
  50. code ends
  51. end main
Функция RenameFolderEx переименовывает каталог\папку. Функция RenameFolderEx автоматически выравнивает стек на 4 байта.

Параметры:

  1. Указатель на строку с текущим именем каталога\папки.
  2. Указатель на строку с новым именем каталога\папки.

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

  • Если CF = 0: Каталог\папка успешно переименован(а).
  • Если CF = 1: AX содержит код ошибки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fOldName db "Assembly", 0
  9. ____fNewName db "Handyfar", 0
  10. ____rSuccess db "Папка была успешно переименована в '%s'.\0"
  11. ____rError___db "Произошла ошибка при переименовании '%s' в '%s'. Код ошибки: %d\0"
  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. ________pushs___es:[fNewName]_________; 2-й: Ложим на вершину стека адрес переменной fNewName
  23. ________pushs___ds:[fOldName]_________; 1-й: Ложим на вершину стека адрес переменной fOldName
  24. ________call____RenameFolderEx________; Вызываем процедуру RenameFolderEx(fOldName, fNewName) := AX и CF
  26. ________jnc_____@NoRenameFolderError__; Если CF=0, то прыгаем на метку @NoRenameFolderError
  28. ________push____ax____________________; 4-й: Ложим на вершину стека ax (код ошибки)
  29. ________pushs___ds:[fNewName]_________; 3-й: Ложим на вершину стека адрес переменной fNewName
  30. ________pushs___ds:[fOldName]_________; 2-й: Ложим на вершину стека адрес переменной fOldName
  31. ________leaax___ds:[rError]___________; 1-й: Загружаем адрес строки формата rError в регистр ds:ax
  32. ________call____PrintFormatString_____; Вызываем процедуру PrintFormatString(ax:rError, ...)
  33. ________add_____sp, 6_________________; Выравниваем стек
  34. ________jmp_____@Done_________________; Выполняем безусловный переход на метку @Done
  36. ____@NoRenameFolderError:
  37. ________pushs___ds:[fNewName]_________; 2-й: Ложим на вершину стека адрес переменной fNewName
  38. ________leaax___ds:[rSuccess]_________; 1-й: Загружаем адрес строки формата rSuccess в регистр ds:ax
  39. ________call____PrintFormatString_____; Вызываем процедуру PrintFormatString(ax:rSuccess, fNewName)
  40. ________add_____sp, 2_________________; Выравниваем стек
  42. ____@Done:
  43. ________push____0_____________________; Ложим на вершину стека байтовое значение кода возврата
  44. ________call____ExitProcessEx_________; Вызываем процедуру ExitProcess(0)
  45. ____main endp
  47. code ends
  48. end main
Made on
Tilda