Emplacement répertoire système

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 299 fois - Téléchargée 29 fois

Contenu du snippet

cette fonction va chercher dans la base de registre l'emplacement de répertoire système (Recent, cookies , internet tempory files etc...)

Source / Exemple :


function litChemRepRegist(sCle : string): string;
var
  rReg: TRegistry;
begin
  rReg := TRegistry.Create;
  try
    rReg.RootKey := HKEY_CURRENT_USER;
    if rReg.OpenKey('\software\microsoft\windows\currentversion\explorer\shell folders', True)
    then result:= rReg.ReadString(sCle);
  finally
    rReg.CloseKey;
    rReg.Free;
  end;
end;

Conclusion :


exemple : litChemRepRegist('Recent') renvoie le chemin du dossier Recent (très utile sous windows NT/2000

A voir également

Ajouter un commentaire Commentaires
Messages postés
123
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
15 mars 2004
2
Désolé mais le TfSupp devant le nom de la fonction est une erreur de ma part. car à l'origine cette fonction faisait partie d'un objet qui me permettait de supprimer le contenue des répertoire (recent et cookies), j'ai donc laissé sans faire exprés le nom de la classe devant.
Messages postés
4
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
25 août 2004

Je peut paraitre un peu débutant, ( car jle suis ;) mais

Comment on déclare la fonction TfSupp.litChemRepRegist car g beau essayé de mettre :
"function TfSupp.litChemRepRegist(Sender: TObject);"
Mais c pas ca du tout alor SVP aidez moi !!
Merci à tous !
Messages postés
123
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
15 mars 2004
2
Tu écrit une fonction qui suppression récurcive qui supprime tous les fichiers et sous répertoire du répertoire renvoyé par litChemRepRegist.

Exemple : SupprDossier(litChemRepRegist('Recent'))

Cela supprime tous le contenu du répertoire 'recent' de l'utilisateur courant. (répertoire qui contient tous les liens des derniers document ouvert)
Messages postés
4
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
25 août 2004

Juste pour savoir :
comment on peut via cette méthode utilisé un repertoire pour ensuite le vidé via une commande dans le style :
"SUPPRIMER UN RÉPERTOIRE ET TT SES SOUS DOSSIERS !" ou autre ?
Merci de vos réponses
Messages postés
214
Date d'inscription
jeudi 21 mars 2002
Statut
Membre
Dernière intervention
14 mai 2004

Pour info :

avec cette méthode on peut avoir :
Administrative Tools, AppData, Cache, Cookies, Desktop, Favorites
Fonts, History, Local AppData, My Pictures, NetHood, Personal
PrintHood, Programs, Recent, SendTo, Start Menu, Startup, Templates

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.