IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> ПОМОГИТЕ!!!  Команды DOS из Паскаля
сообщение
Сообщение #1


Гость






Люди! Помогите советом!  ???

Работаю в Паскале для Windows. Нужно выполнить команду DOS (копирование файлов). В BP DOS это делалось процедурой Exec, но как это делается
в BP Win - не могу понять.
Есть процедура WinExec из модуля WinProcs, но что-то она не работает...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 42

Репутация: -  0  +


Не будет работать WinExec в Вашем случае. Копирование же проще сделать самому.

{Sample code for the BlockRead and BlockWrite procedures.}

program CopyFile;

{ Simple, fast file copy program with NO error-checking }

{ For Windows: }
{ uses WinCrt; }

var
 FromF, ToF: file;
 NumRead, NumWritten: Word;
 Buf: array[1..2048] of Char;
begin
 Assign(FromF, ParamStr(1));      { Open input file }
 Reset(FromF, 1);            { Record size = 1 }
 Assign(ToF, ParamStr(2));      { Open output file }
 Rewrite(ToF, 1);            { Record size = 1 }
 Writeln('Copying ', FileSize(FromF), ' bytes...');
 repeat
   BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
   BlockWrite(ToF, Buf, NumRead, NumWritten);

 until (NumRead = 0) or (NumWritten <> NumRead);
 Close(FromF);
 Close(ToF);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 19:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name