1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| { ========================================================================= }
function GetWinFolder_V1(FolderConst: Integer):string;
// Répertoires spéciaux de Windoxs
// Rep n° 0 : D:\Documents and Settings\Utilisateur\Bureau
// Rep n° 2 : D:\Documents and Settings\Utilisateur\Menu Démarrer\Programmes
// Rep n° 5 : D:\Documents and Settings\Utilisateur\Mes documents
// Rep n° 6 : D:\Documents and Settings\Utilisateur\Favoris
// Rep n° 7 : D:\Documents and Settings\Utilisateur\Menu Démarrer\Programmes\Démarrage
// Rep n° 8 : D:\Documents and Settings\Utilisateur\Recent
// Rep n° 9 : D:\Documents and Settings\Utilisateur\SendTo
// Rep n° 11 : D:\Documents and Settings\Utilisateur\Menu Démarrer
// Rep n° 13 : D:\Documents and Settings\Utilisateur\Mes documents\Ma musique
// Rep n° 14 : D:\Documents and Settings\Utilisateur\Mes documents\Mes vidéos
// Rep n° 16 : D:\Documents and Settings\Utilisateur\Bureau
// Rep n° 19 : D:\Documents and Settings\Utilisateur\Voisinage réseau
// Rep n° 20 : C:\WINDOWS\Fonts
// Rep n° 21 : D:\Documents and Settings\Utilisateur\Modèles
// Rep n° 22 : D:\Documents and Settings\All Users\Menu Démarrer
// Rep n° 23 : D:\Documents and Settings\All Users\Menu Démarrer\Programmes
// Rep n° 24 : D:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage
// Rep n° 25 : D:\Documents and Settings\All Users\Bureau
// Rep n° 26 : D:\Documents and Settings\Utilisateur\Application Data
// Rep n° 27 : D:\Documents and Settings\Utilisateur\Voisinage d'impression
// Rep n° 28 : D:\Documents and Settings\Utilisateur\Local Settings\Application Data
// Rep n° 31 : D:\Documents and Settings\All Users\Favoris
// Rep n° 32 : D:\Documents and Settings\Utilisateur\Local Settings\Temporary Internet Files
// Rep n° 33 : D:\Documents and Settings\Utilisateur\Cookies
// Rep n° 34 : D:\Documents and Settings\Utilisateur\Local Settings\Historique
// Rep n° 35 : D:\Documents and Settings\All Users\Application Data
// Rep n° 36 : C:\WINDOWS
// Rep n° 37 : C:\WINDOWS\system32
// Rep n° 38 : C:\Program Files
// Rep n° 39 : D:\Documents and Settings\Utilisateur\Mes documents\Mes images
// Rep n° 40 : D:\Documents and Settings\Utilisateur
// Rep n° 41 : C:\WINDOWS\system32
// Rep n° 43 : C:\Program Files\Fichiers communs
// Rep n° 45 : D:\Documents and Settings\All Users\Modèles
// Rep n° 46 : D:\Documents and Settings\All Users\Documents
// Rep n° 47 : D:\Documents and Settings\All Users\Menu Démarrer\Programmes\Outils\Outils d'administration
// Rep n° 48 : D:\Documents and Settings\Utilisateur\Menu Démarrer\Programmes\Outils d'administration
// Rep n° 53 : D:\Documents and Settings\All Users\Documents\Ma musique
// Rep n° 54 : D:\Documents and Settings\All Users\Documents\Mes images
// Rep n° 55 : D:\Documents and Settings\All Users\Documents\Mes vidéos
// Rep n° 56 : C:\WINDOWS\resources
// Rep n° 59 : D:\Documents and Settings\Utilisateur\Local Settings\Application Data\Microsoft\CD Burning
var
RC : Integer;
IDL : TSHItemID;
begin
result := '';
RC := SHGetSpecialFolderLocation(0, FolderConst, PItemIDList(IDL));
If RC = 0 Then
begin
Setlength(result,MAX_PATH);
ZeroMemory(PChar(result),MAX_PATH);
SHGetPathFromIDList(PItemIDList(IDL), PChar(result));
result:=Trim(result);
end;
end;
{ =========================================================================== } |
Partager