ХАНДЫФАР

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

Параметры:

1. Указатель на строку с именем файла, завершающуюся нулём 0.
2. Указатель на строку с путём назначения, завершающуюся нулём 0.

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

• Если CF = 0: Успешное копирование.
• Если CF = 1: Ошибка (файл не найден, путь недоступен и т. д.).

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____path__db "folder\my_file\", 0
9. ____fname db "test.txt", 0
10. data ends
12. code segment public
13. ____assume _ds:data, cs:code
14. ____include Handyfar.inc
15. ____include Handymac.inc
17. ____main proc
18. ________call____SetDataSegment
20. ________pushs___es:[path]
21. ________pushs___ds:[fname]
22. ________call____CopyFileEx
24. ________push____0
25. ________call____ExitProcessEx
26. ____main endp
28. code ends
29. end main

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

Параметры:

1. Указатель на строку с именем файла, завершающуюся нулём 0.
2. Указатель на строку с путём назначения, завершающуюся нулём 0.

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

• Если CF = 0: Успешное копирование.
• Если CF = 1: Ошибка (файл не найден, путь недоступен и т. д.).

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____path__db "folder\my_file\", 0
9. ____fname db "test.txt", 0
10. data ends
12. code segment public
13. ____assume _ds:data, cs:code
14. ____include Handyfar.inc________; Подключаем файл с функциями
15. ____include Handymac.inc________; Подключаем файл с макросами
17. ____main proc
18. ________call____SetDataSegment__; Вызываем процедуру SetDataSegment
20. ________pushs___es:[path]_______; Ложим на вершину стека адрес переменной path
21. ________pushs___ds:[fname]______; Ложим на вершину стека адрес переменной fname
22. ________call____CopyFileEx______; Вызываем процедуру CopyFileEx(fname, path) := CF
24. ________push____0_______________; Ложим на вершину стека байтовое значение кода возврата
25. ________call____ExitProcessEx___; Вызываем процедуру ExitProcess(0)
26. ____main endp
28. code ends
29. end main