Festplattencache planen

[gsh]

Naja ich mag sowas halt nicht so gern ...

Aber was ich eigentlich sagen wollte. In der Classes Unit ist diese Procedure schon vorhanden:

Delphi-Quellcode:

constructor TFileStream.Create(const AFileName: string; Mode: Word; Rights: Cardinal);
begin
  if Mode = fmCreate then
  begin
    inherited Create(FileCreate(AFileName, Rights));
    if FHandle < 0 then
      raise EFCreateError.CreateResFmt(@SFCreateErrorEx, [ExpandFileName(AFileName), SysErrorMessage(GetLastError)]);
  end
  else
  begin
    inherited Create(FileOpen(AFileName, Mode));
    if FHandle < 0 then
      raise EFOpenError.CreateResFmt(@SFOpenErrorEx, [ExpandFileName(AFileName), SysErrorMessage(GetLastError)]);
  end;
  FFileName := AFileName;
end;

und ich wollt fragen ob es mit der geht

[Muetze1]

Zitat von gsh:

In der Classes Unit ist diese Procedure schon vorhanden:

Aso, das wusste ich nicht. Ich habe dadurch die Routine in meinem Beitrag angepasst, so dass der Parameter nun Flags und nicht mehr Rights heisst.

Zitat von gsh:

und ich wollt fragen ob es mit der geht

Schau nach wo diese "Rights" angegeben werden beim CreateFile() Aufruf. Grundlegend komisch ist aber schonmal, dass sie nur beim Anlegen der Datei verwendet werden und nicht beim normalen Öffnen. Somit sollte bei einer vorhandenen Datei der Parameter nutzlos (da ungenutzt) sein.