IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

[Windows][VCL]Savoir si mon application est dans un répertoire protégé


Sujet :

Langage Delphi

  1. #1
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 097
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 097
    Points : 41 083
    Points
    41 083
    Billets dans le blog
    62
    Par défaut [Windows][VCL]Savoir si mon application est dans un répertoire protégé
    Bonsoir,

    La question est dans le titre comment "Savoir si mon application est dans un répertoire protégé" et ce sans trop se casser la tête ?
    Je présume que tester la création d'un fichier dans le répertoire cela pourrait-le faire
    mais n'y aurait-il pas une API ou un indicateur quelconque pour obtenir les droits ?
    Ce soir, je sèche

  2. #2
    Membre expérimenté
    Avatar de retwas
    Homme Profil pro
    Développeur Java/Delphi
    Inscrit en
    Mars 2010
    Messages
    698
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Développeur Java/Delphi
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 698
    Points : 1 608
    Points
    1 608
    Billets dans le blog
    4
    Par défaut
    Pour lire les attribut d'un fichier comme le lecture seul ou autre c'est assez simple, pour les droits je me suis un peu cassé les dents dessus.

    Au final comme tu l'indiques je suis partie sur la création d'un fichier, un try...except avec un TDirectory.CreateDirectory

  3. #3
    Membre expert
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    Décembre 2006
    Messages
    2 370
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Décembre 2006
    Messages : 2 370
    Points : 3 144
    Points
    3 144
    Par défaut
    Bonjour,

    est ce qu'il ne faut pas chercher du coté de Icacls ?

    Icacls

    A+
    Charly

  4. #4
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 097
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 097
    Points : 41 083
    Points
    41 083
    Billets dans le blog
    62
    Par défaut
    Bonjour,

    j'avais oublié de préciser par programmation ?

    Le plus simple reste bien le test d'écriture d'un fichier, voilà en gros comment je m'en tire avec Tokyo 10.2 (merci System.IOUtils)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
    uses ..., Sytem.IOUtils;
    .....
    function MyAppDataDir(AppName : String) : String;
    /// appname : petit nom de l'application 
    var S : String; // nom de fichier unique généré
        FS : TFileStream; // Fichier ouvert
    begin
     try
      S:=TPath.Combine(ExtractFileDir(ParamStr(0)),TPath.GetGUIDFileName(false));
      FS:=TFile.Create(S);  // création 
      FS.Free;                  // fermeture (sans ça impossible de supprimer le fichier)
      TFile.Delete(S);        // effacement 
      // n'est pas dans un répertoire protégé
      Result:=ExtractFileDir(S);
     except
      // est dans un répertoire protégé
      Result:=TPath.Combine(TPath.GetPublicPath,AppName);
     end;
    end;
    mes tentatives par les attributs n'ont pas été couronnés de succès

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [3D] Comment savoir si un point est dans mon champ de vision
    Par patmaba dans le forum Développement 2D, 3D et Jeux
    Réponses: 10
    Dernier message: 04/11/2018, 13h20
  2. comment savoir si mon application est ouverte sur un poste distant
    Par melancolie dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 08/02/2011, 10h15
  3. Savoir si mon appli est un service windows
    Par ElBarto38 dans le forum C#
    Réponses: 6
    Dernier message: 14/04/2010, 10h46
  4. Réponses: 20
    Dernier message: 18/05/2008, 16h33
  5. Réponses: 5
    Dernier message: 15/06/2007, 14h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo