CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 11 20 17:01:09

CODEPLEX : GOOGLE MAPS INTELLISENSE HELPER - RELEASE par nicoboo

[OPEN XML] LES SPéCIFICATIONS D'OPEN XML ISO ENFIN PUBLIéES ! par neodante

SAF 2008 : DAY I par MPOWARE

PASS 2008 : RéSUMé DE LA PREMIèRE JOURNéE par christian

WINDOWS AZURE SERVICES : PREMIèRE APPLICATION - SERVICE ON THE CLOUD : JUST DO IT ! par redo

RE : REMPLIR 1 STRINGGRID AVEC LE RESULTAT DE PLUSIEURS ADOQUERY par cantador

RE : SERVEUR FTP INDY BORLAND C++ BUILDER 5 par zied75

GENERER UN EXE DELPHI par nadiacompte

RE : CRER LES STOCKS par yvessimon

RE : DETECTION D'INTRUE DANS LES SEQUENCES VIDEO par cirec

+ de logiciels à télécharger

1 292 036 membres
519 nouveaux aujourd'hui
14 521 membres club

Trouver une ressource

Trouvez une ressource parmi 39 005 codes, 1 203 051 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OBTENIR LE CHEMIN DES SPECIALFOLDERS

Information sur la source

Catégorie :Base de registre Niveau : Débutant Date de création : 10/03/2005 Vu : 5 301

Auteur : retaks666

Site perso

Ecrire un message privé

Note :

7,00 / 10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Sert a obtenir le chemin des dossier spéciaux(temp, system, application data....).
ça a sans doute déja été fait mais bon je l'ai fait pour moi ça peut intéresser...

Source

a mettre dans les uses: registry
function GetSpecialFolder(folder:string) :string;
var
Reg : TRegistry;
res : string;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False)
then res := Reg.ReadString(folder)
else res := '';
finally
Reg.CloseKey;
Reg.Free;
end;
result := res;
end;

a mettre dans les uses: registry

function GetSpecialFolder(folder:string) :string;
var
    Reg : TRegistry;
    res : string;

begin

    try
    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False)
    then res := Reg.ReadString(folder)
    else res := '';
    finally
    Reg.CloseKey;
    Reg.Free;
    end;

    result := res;

end;

Conclusion

La liste des folder:

"AppData" application data
"Cookies" cookies
"Desktop" bureau
"Favorites" favoris
"NetHood" voisinnage réseau
"Personal" mes documents
"PrintHood" voisinage d'impression
"Recent" Recent
"SendTo" envoyer vers(dossier des racourcis pour le menu contextuel)
"Start Menu" menu démarer
"Templates" modèles
"Programs" program files
"Startup" dossier de démarage
"Local Settings" idem
"Local AppData" idem
"Cache" cache
"History" historique
"My Pictures" mes images
"Fonts" polices
"My Music" ma musique
"CD Burning" gravure cd
"My Video" mes vidés
"Administrative Tools" outils d'administration