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;
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
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
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)
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 !
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.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 871 935 membres 14 nouveaux aujourd'hui 16 147 membres club