Es genügt den FileStream freizugeben.
Delphi-Quellcode:
var
MyFile: TFileStream;
begin
MyFile := TFileStream.Create('Dateipfad', fmShareDenyWrite);
try
MyFile. ...
finally
MyFile.Free; // danach ist die Datei wieder nutzbar
end;
end;
fmShareDenyWrite reicht aber eigentlich kaum, normalerweise wird das (mit or) kombiniert mit fmOpenRead oder fmCreate um die Datei zum Lesen zu öffnen oder neu zu erstellen.