Открыть занятый файл

[pautina]

Здравствуйте Уважаемое сообщество, как открыть файл занятый другим приложением.

[Zerone]

Действует механизм блокировок, требуется этот файл разблокировать.
Очень удобный инструмент- Unlocker http://soft.softodrom.ru/ap/p6411.shtml

[rpy3uH]

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

Здравствуйте Уважаемое сообщество, как открыть файл занятый другим приложением.

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

[pautina]

У меня есть такой участок кода.

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer; handle:integer;
    FS: TFileStream;

    s:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);

 // FileSetAttr('C:\Documents and Settings\ñåðãåé\Ðàáî÷èé ñòîë\Çàäàíèå\logfile.txt', faReadOnly);  // Àòðèáóòû äëÿ ôàéëà òîëüêî ÷òåíèå
  Handle := FileOpen('C:\Documents and Settings\ñåðãåé\Ðàáî÷èé ñòîë\Çàäàíèå\logfile.txt', fmOpenRead );
  FS:= TFileStream.Create('C:\Documents and Settings\ñåðãåé\Ðàáî÷èé ñòîë\Çàäàíèå\logfile.txt', fmShareDenyNone);

 for i:=0 to SourceST.Count-1 do
 begin

 // try     // Âûâîä ÷èñåë
 //   if pos('|',SourceST[i])<>0 then // Åñëè ñòðîêà ñ ðàçäåëèòåëåì | íàéäåíà
 //   SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,48)
 //   else SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,1); // Åñëè ñòðîêà ñ ðàçäåëèòåëåì íå íàéäåíà òî ñòðîêà ñîñòîèò èç ïðîáåëà
 //   DestST.Add(SourceST[i]);   // Âûâîä ÷èñåë

 // except
 // end;

  try
    // Âûâîä âðåìåííûõ ìåòîê
    if pos(':',SourceST[i])<>0 then // Åñëè ñòðîêà ñ : íàéäåíà
    SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-19,20)
    else
    // Âûâîä ÷èñåë
     if ((pos('|',SourceST[i])<>0) and ((pos('1',SourceST[i])<>0)
         or (pos('2',SourceST[i])<>0) or (pos('3',SourceST[i])<>0)
         or (pos('4',SourceST[i])<>0) or (pos('5',SourceST[i])<>0)
         or (pos('6',SourceST[i])<>0) or (pos('7',SourceST[i])<>0)
         or (pos('8',SourceST[i])<>0) or (pos('9',SourceST[i])<>0)
         or (pos('0',SourceST[i])<>0)))

     then // Åñëè ñòðîêà ñ ðàçäåëèòåëåì | íàéäåíà è â ñòðîêå åñòü öûôðû
     SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,48)
    // Åñëè íè âðåìåííûõ ìåòîê íè ÷èñåë íåò òî ñòðîêà ïóñòàÿ
    else SourceST[i]:='';
    DestST.Add(SourceST[i]);
  except
  end;

 end;
 DestST.SaveToFile('112.txt'); //   DestST.SaveToFile('112.xls');
 SourceST.Free;
 DestST.Free;
end;

Он позволяет вывести нужные данные из файла. logfile.txt при условии что этот файл сохранён, а мне нужно вывести данные из файла когда он занят приложением generator.exe это приложение и создаёт файл лога. Как можно прочитать данные при помощи TFileStream

[Д'якон]

Какой смысл спрашивать, если ты не читаешь то что тебе отвечают?