Bloquer l'accès à un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 187 fois - Téléchargée 31 fois

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

Ajouter un commentaire

Commentaires

ANDREW_ABC009
Messages postés
1
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
26 octobre 2005
-
E MASSA
sosodef88
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
-
nan c'est vraiment pas ca mais merci quand meme ;)
sosodef88
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
-
tu as un liens pour la source en question?
Niki2001
Messages postés
87
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
-
Je ne crois pas, mais bon mes connaissances sont assez restreintes. J'attends la réponse des spécialistes. Par contre il y a une source qui empêche d'y accéder par explorer, c'est déjà ça.
sosodef88
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
-
salut

n'y aurais t il pas un moyen de bloquer l'acces a un répertoire ?

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.