Ist es möglich eine Datei zu lesen ohne das Löschen der Datei zu blockieren?

[tcoman]

Da ich kein Experte bin sondern nur anwendenter Laie,
lese / lade ich Dateien immer mit BlockRead();

Wenn ich den FileMode richtig setze, kann ich die geladene
Datei in einem Drittprogramm loeschen.

Delphi-Quellcode:

function _readfile: boolean;
var F : File Of Byte;
    ior : integer; 
begin
ior:=0;
AssignFile(F, 'X:\Dir\Filename.ext');
FileMode:=fmOpenRead; //alternate: fmOpenReadWrite
{$I-} Reset(F);
{$I+} inc(ior, IORESULT);
...
{$I-} BlockRead();
{$I+} inc(ior, IORESULT);
...
{$I-} CloseFile(F);
{$I+} inc(ior, IORESULT);
...
result:=(ior = 0);
end;

Alles ohne Gewehr.
MfG,
Terence