27.03.2009, 16:17
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
С нами:
9394886
Репутация:
1467
|
|
Сообщение от Nightmarе
Так всё-же может кто подкинуть код как скопировать файл если он занят другим процэссом???
Вот например:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
infs,outfs: tfilestream;
begin
infs := tfilestream.create( edit1.text, fmopenread );
outfs := tfilestream.create( edit2.text, fmcreate );
infs.free;
outfs.free;
end;
При занятости файла уведомляет ошибочкой, может fmopenread можно на что то заменить? ЧТобы было только чтение, а не открытие файла. Стоит попробовать заменить TFileStream на TMemoryStream и загружать методом loadFromFile вроде! Да кроме того кажется там есть флаг при открытии - fmRead!
|
|
|