копировать EXE

[galaid]

как наисать прогу которая копирует EXE файлы, так чтоб EXE файл после копирования мог нормально работать

[uberchel]

Если правильно понял, то вот! Процедура копирования файлов.

CopyFile('inFile','outfile',проверка); в проверке ставиться true или false

[galaid]

Сообщение от uberchel

CopyFile('inFile','outfile',проверка); в проверке ставиться true или false

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

[Sazary]

Можно банальным посимвольным копированием. Примерно так:

var f,fout : file of char;
c : char;
begin
assign(f,'file.exe');
reset(f);
assign(fout,'file_out.exe');
rewrite(fout);
while not eof(f) do
 begin
 read(f,c);
 write(fout,c);
 end;
close(f);
close(fout);
end.

Ну или блоками, для большей эффективности.

[galaid]

sazary я так пробывал, но после этого тот файл не запускается,
твой метод удобен для текстовых файлов и для некоторых других

[Sazary]

Сообщение от galaid

sazary я так пробывал, но после этого тот файл не запускается,
твой метод удобен для текстовых файлов и для некоторых других

Сейчас проверил - все у меня копируется и запускается. Что я не так делаю?

[Serge_Bliznykov]

Сообщение от Sazary

Сейчас проверил - все у меня копируется и запускается. Что я не так делаю?

да вроде всё правильно! (хотя через blockRead/BlockWrite намного эффективнее! А пример копирования файла прямо в Help'е TurboPascal есть)

Думаю, что это galaid что-то делает не так...