Как можно скопировать файл (изображение) с жёсткого диска в другое место через Pascal?

[wowiku]

как это можно описать в Pascal?

Поясняю: есть файл C:/lyubaya_papca/lyuboy_fail.jpg
с помощью программирования в pascal`е копировать данное изображение например на диск D



Всё, спасибо нашел: может комуто пригодиться:

{$M 2048, 0, 0} {устанавливаем размер стека}
program cutfile;
uses
DOS; {подключаем модуль DOS}
var
path: PathStr;{полное имя исходного файла}
dir_new: DirStr;{директория куда копируется файл}
begin
write('Vvedite polnoe im9 kopiruemogo faila: ');
readln(path); {считываем полное имя}
write('Vvedite directoriu, v kotoruiu nado ckopirovat'' fail: ');
readln(dir_new);{считываем директорию}
swapvectors;{обмениваем содержимое векторов прерывания с переменными SAVEINTXX}
exec('C:\WINDOWS\system32\cmd.exe', '/C attrib -h -r -a ' + path);{снимаем атрибуты файла (скрытые/системные и только для чтения)}
exec('C:\WINDOWS\system32\cmd.exe', '/C copy '+ path+ ' '+ dir_new);
{запускаем cmd.exe и передаем ему параметры: команду копировать+имя файла+новая директория}
exec('C:\WINDOWS\system32\cmd.exe', '/C del '+ path);{запускаем cmd.exe с командой удаления и путем к первичному файлу}
swapvectors;
readln;
end.


ЗЫ Если убрать строку

exec('C:\WINDOWS\system32\cmd.exe', '/C del '+ path);

, то получится программа не перемещающая, а копирующая файлы. конечно если вы только начали изучать Паскаль авм будет непросто разобраться в этой программе, точнее надо будет почитать про прерывания, программные.

[Stilet]

Как вариант - через exec

exec('copy C:/lyubaya_papca/lyuboy_fail.jpg d:/lyuboy_fail.jpg','');

из модуля dos