Bloquer l'accès à un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 372 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

Messages postés
1
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
26 octobre 2005

E MASSA
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 ;)
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?
Messages postés
85
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
1
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.
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 ?
Afficher les 7 commentaires

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.