begin process at 2010 02 10 13:39:51
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Système

 > EMPLACEMENT RÉPERTOIRE SYSTÈME

EMPLACEMENT RÉPERTOIRE SYSTÈME


 Information sur la source

Note :
8 / 10 - par 2 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Niveau :Débutant Date de création :09/01/2002 Date de mise à jour :25/08/2004 08:58:40 Vu :3 496

Auteur : Amadeus

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • 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;
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


 Historique

25 août 2004 08:58:40 :
Il y avait une erreur dans la déclaration de la fonction

 Sources du même auteur

VERROUILER UN FICHIER
RENVOIE UNE PARTIE D'UNE CHAINE PAR RAPPORT À UN SÉPARATEUR
DONNE NOMBRE DE TOKEN DANS UNE CHAINE
Source avec Zip COMPOSANT TALIGNPANEL
GESTION DES FENÊTRE MDI FILLE UNIQUE

 Sources de la même categorie

Source avec Zip Source avec une capture GLIBWMI VCL COMPONENT LIBRARY 1.6B par Neftali
Source avec Zip Source avec une capture UNITÉ DE SUPPORT VISTA par Bacterius
Source avec Zip Source avec une capture NETTOYEUR AUTOMATIQUE DE VOS DISQUES par diglas
Source avec Zip Source avec une capture LES VALUE'S FADERS par blueperfect
Source avec Zip Source avec une capture COUNTERS, UNITÉ DE CALCUL DE PERFORMANCE par Bacterius

Commentaires et avis

Commentaire de Bruto le 20/08/2002 13:42:01

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

Commentaire de tracesurf le 24/08/2004 11:06:08

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

Commentaire de Amadeus le 24/08/2004 11:16:22

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)

Commentaire de tracesurf le 24/08/2004 19:47:20

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 !

Commentaire de Amadeus le 25/08/2004 09:01:54

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.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,671 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales