Работа с файлом, занятым другим процессом

[Viteef]

Как можно организовать копирование(или другое действие), с файлом, занятым другим процессом? Или подскажите какую прогу надо использовать.
Заранее спасиба.

[mrandrey]

Записывать и удалять нельзя, а читать можно, вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
a:_OFSTRUCT;
iFileHandle: cardinal;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer;
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := OpenFile(pchar(OpenDialog1.FileName ),a,OF_READ);
if iFileHandle=-1then
begin
ShowMessage('Error!');
exit;
end;
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer[i];
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
end;
finally
FreeMem(Buffer);
end;
end;
end;

ps все работает, но большие файлы лучше этим примером не открывать

[Viteef]

Не работает вообще, а на обычных файлах глючит со страшной силой

[rpy3uH]

на чтение, то можно всегда открыть (хотя есть исключения), для доступа к занятым файлам придётся писать драйвер, хотя есть другие методы, но драйвер по моему проще всего
вот пожалуйста другие методы:
http://www.wasm.ru/article.php?article=lockfileswork