Bloquer l'accès à un fichier

Commenter

Contenu du snippet

Comme son nom l'indique, cette astuce (plus qu'un code) permet d'empécher l'accès à un fichier. Bien sûr on peut utiliser le truc pour autant de fichier qu'on veut, mais gare à la mémoire pour stocker tous les streams.

Source / Exemple : 


uses Classes, SysUtils;

var
   Stream: TFileStream;

procedure BloquerFichier(FileName: string);
begin
  if FileExists(FileName) then
    Stream:= TFileStream.Create(FileName, fmOpenRead);
end;

procedure DebloquerFichier;
begin
  Stream.Free;
end;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Niki2001)