Datei öffnen die von anderen Programm verwendet wird

[DeddyH]

Über einen Umweg über TFileStream könnte es auch gehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TFileStream;
    List: TStringList;
    Ini: TMemIniFile;
begin
  try
    Stream := TFileStream.Create('C:\boot.ini',fmOpenRead);
    List := TStringList.Create;
    Ini := TMemIniFile.Create('');
    try
      List.LoadFromStream(Stream);
      Ini.SetStrings(List);
      ShowMessage(Ini.ReadString('boot loader','timeout','nix'));
    finally
      FreeAndNil(Stream);
      FreeAndNil(List);
      FreeAndNil(Ini);
    end;
  except
    ShowMessage('Erzeugen von FileStream fehlgeschlagen');
  end;
end;