Доступ к файлам

[Gerzs]

Добрый день.
Как получить доступ к файлу который занят другим процессом? (винда ошибку выдает)

[Dux]

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

Добрый день.
Как получить доступ к фалу который занят другим процессом? (винда ошибку выдает)

В этом случае я думаю надо воспользоваться фалоиммитатором

Извините.. не удержался..

[Gerzs]

Dux а по теме есть что сказать?

[raxp]

Как получить доступ к файлу который занят другим процессом?

- а что вы хотите с ним делать?
- если вопрос в удалении, то достаточно разблокировать хэндл... кстати есть в сети готовые утилиты

p.s.: подсказать какая или сами найдете?

[Gerzs]

raxp, нужно его прочесть

[raxp]

вот решение вашей проблемы...

F := TFileStream.Create(Filee, fmShareDenyNone);

[Gerzs]

raxp, вы кажется меня неправильно поняли. Насколько мне известно, данный код закрывает файл от редактирования. А мне надо прочитать файл, который закрыт для чтения другими программами. Или я ошибаюсь?

[Stilet]

А мне надо прочитать файл, который закрыт для чтения другими программами.

НАсколько помню нужно продублировать хендл файла с помошью DuplicateHandle. Где-то подобное читал, но не гарантирую что прав.

[raxp]

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

raxp, вы кажется меня неправильно поняли. Насколько мне известно, данный код закрывает файл от редактирования. А мне надо прочитать файл, который закрыт для чтения другими программами. Или я ошибаюсь?

- да нет, уважаемый, прекрасно вас понял... во-первых обратите внимание на параметры, во-вторых данная проблема обсуждалась тут http://www.sql.ru/Forum/actualthread.aspx?tid=662606
и заметьте, это первое что выдал гугль по-вашему вопросу

[Gerzs]

raxp, извините, перепутал параметры.
Если ввести данную команду в код почему-то пишет что файл не найден. В чем проблема?

begin
if FindFirst('C:\Documents and Settings\zaj\Local Settings\Application Data\Google\Chrome\User Data\Default\Cache\*', faAnyFile, SearchRec) = 0 then
  begin
   repeat
    if (SearchRec.Attr and faDirectory)=0 then
    begin
     F := TFileStream.Create('C:\Documents and Settings\zaj\Local Settings\Application Data\Google\Chrome\User Data\Default\Cache\'+ SearchRec.Name, fmShareDenyNone);
     // some code
     F.Free;
    end;
   until FindNext(SearchRec) <> 0;
   FindClose(SearchRec);
   end;
end;