Ошибка при использовании copyfile

[The Best]

люди, подскажите пожалуйста мне коды ошибок дя этой функции, а то у меня в хелпе про ней написано только вот что: "

The runtime library does not provide any routines for copying a file. However, if you are writing Windows-only applications, you can directly call the Windows API CopyFile function to copy a file. Like most of the runtime library file routines, CopyFile takes a filename as a parameter, not a file handle. When copying a file, be aware that the file attributes for the existing file are copied to the new file, but the security attributes are not. CopyFile is also useful when moving files across drives because neither the RenameFile function nor the Windows API MoveFile function can rename or move files across drives. "

Весь инет облазил в поисках и везде пишут: "Ошибки этой функции хорошо в хелпе расписаны! Ищите там." Зарание спасибо.

[bill_gates]

Попробуй эту функцию:

procedure CopyFileX(file_from, file_to:string);
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
AssignFile(FromF, file_from);
Reset(FromF, 1);
AssignFile(ToF, file_to);
Rewrite(ToF, 1);
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;

...

CopyFileX('C:\Boot.ini','D:\Boot.ini'); //копирование из C:\boot.ini в D:\boot.ini например

Тоже пробовал CopyFile. Тоже не получилось. с тех пор юзаю эту функцию.

[Квэнди]

http://msdn.microsoft.com/en-us/libr...51(VS.85).aspx

[The Best]

А есть похожая процедура тока на удаление? А то уменя такая проблема:
deletefile('C:\project1.exe');
CopyFileX('C:\project3.exe','C:\pro ject1.exe');

При этом прога ругается: I\O Error 32 (процесс не может получить доступ к файлу, потому что он использвется другим процессом)

Квэнди, у меня некорректно отображается этот сайт. Нету полосы прокрутки. А вся инфа не влазит на страницу.

Сори, забыл про оверпостинг. А как удалить пост - не нашёл.

[bill_gates]

Сообщение от The Best

При этом прога ругается: I\O Error 32 (процесс не может получить доступ к файлу, потому что он использвется другим процессом)

а что если в начале юнита записать так:

unit Unit1;

{$I-}

interface
...

[The Best]

То просто узнаю какая у меня ошибка. А мне нужно от неё избавиться.

А, ся, придумал кое что.

[uberchel]

Сообщение от The Best

А есть похожая процедура тока на удаление? А то у меня такая проблема:
deletefile('C:\project1.exe');
CopyFileX('C:\project3.exe','C:\pro ject1.exe');

При этом прога ругается: I\O Error 32 (процесс не может получить доступ к файлу, потому что он использоваться другим процессом)

У всё нормально и с CopyFile, только мне не понятно что вы этим хотите сделать, Для чего с начало удалять а потом копировать с одного в др?
и 'C:\project1.exe', это не в ней ли пишете этот код ?

[The Best]

Просто я пишу свой апдейтер. Короче, суть такая:
есть файл программы (project1) и файл новой версии программы (project2). Project1 проверяет наличие project2 и копирует её в project3, а затем запускает Project2. Project2 прверяет наличие project3 и если он есть, то заменяет им project1. Затем запускается уже новый project1.

Указанный вами участок кода принадлежит project2.

[Пепел Феникса]

CopyFile и DeleteFile отлично работают

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

[bill_gates]

Сообщение от The Best

Project1 проверяет наличие project2 и копирует её в project3, а затем запускает Project2.

А ты Project1 закрываешь после запуска Project2?