Trouver les dossier spéciaux de windows

Version imprimable

Code:

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
//ShlObj
  CSIDL_DESKTOP                 = $0000;
  CSIDL_INTERNET                = $0001;
  CSIDL_PROGRAMS                = $0002;
  CSIDL_CONTROLS                = $0003;
  CSIDL_PRINTERS                = $0004;
  CSIDL_PERSONAL                = $0005;
  CSIDL_FAVORITES               = $0006;
  CSIDL_STARTUP                 = $0007;
  CSIDL_RECENT                  = $0008;
  CSIDL_SENDTO                  = $0009;
  CSIDL_BITBUCKET               = $000a;
  CSIDL_STARTMENU               = $000b;
  CSIDL_DESKTOPDIRECTORY        = $0010;
  CSIDL_DRIVES                  = $0011;
  CSIDL_NETWORK                 = $0012;
  CSIDL_NETHOOD                 = $0013;
  CSIDL_FONTS                   = $0014;
  CSIDL_TEMPLATES               = $0015;
  CSIDL_COMMON_STARTMENU        = $0016;
  CSIDL_COMMON_PROGRAMS         = $0017;
  CSIDL_COMMON_STARTUP          = $0018;
  CSIDL_COMMON_DESKTOPDIRECTORY = $0019;
  CSIDL_APPDATA                 = $001a;
  CSIDL_PRINTHOOD               = $001b;
  CSIDL_ALTSTARTUP              = $001d;
  CSIDL_COMMON_ALTSTARTUP       = $001e; 
  CSIDL_COMMON_FAVORITES        = $001f;
  CSIDL_INTERNET_CACHE          = $0020;
  CSIDL_COOKIES                 = $0021;
  CSIDL_HISTORY                 = $0022;
// a ajouter
  CSIDL_COMMON_APPDATA          = $0023;
  CSIDL_WINDOWS                 = $0024;
  CSIDL_SYSTEM                  = $0025;
  CSIDL_PROGRAM_FILES           = $0026;
  CSIDL_MYPICTURES              = $0027;
  CSIDL_PROFILE                 = $0028;
  CSIDL_SYSTEMX86               = $0029;
  CSIDL_PROGRAM_FILESX86        = $002A;
  CSIDL_PROGRAM_FILES_COMMON    = $002B;
  CSIDL_PROGRAM_FILES_COMMONX86 = $002C;
  CSIDL_COMMON_TEMPLATES        = $002D;
  CSIDL_COMMON_DOCUMENTS        = $002E;
  CSIDL_COMMON_ADMINTOOLS       = $002F;
  CSIDL_ADMINTOOLS              = $0030;
  CSIDL_FLAG_CREATE             = $8000;
  CSIDL_FLAG_DONT_VERIFY        = $4000;
  CSIDL_FLAG_MASK               = $FF00;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses ShlObj
function GetWinFolder_V1(FolderConst: Integer):string;
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;
 
function GetWinFolder_V2(FolderConst: Integer):string;
begin
   Setlength(result,MAX_PATH);
   ZeroMemory(PChar(result),MAX_PATH);
   SHGetSpecialFolderPath(0,PChar(result),FolderConst,Longbool(false));
   result:=Trim(result);
end;

13/10/2009, 05h17
Dr.Who

j't'aime bien, tu fait exactement les même sources que moi ou presque.

qui est le fils spirituel de l'autre ? :lol:
13/10/2009, 09h39
GoustiFruit

Y'a un copyright ?
13/10/2009, 17h33
ShaiLeTroll

Très Interessant, j'ai eu quelques ennuis avec GetSystemDirectory qui ne renvoyait pas grand chose.
J'ai pu m'en passer, "C:\WINDOWS\System32\" étant dans les PATH d'environnement, j'ai pu invoqué shimgvw.dll sans préciser le chemin

Je testerais ton code à l'occasion ... l'aide SDK API n'est pas du tout complète sur la liste des constantes possibles ... j'essaye de changer lorsque j'ai le temps, l'utilisation un peu bordélique des chemins en particulier des fichiers temporaire vers le dossier fourni Windows.GetTempPath, en général, cela renvoi celui du profil utilisateur, où l'on peut créer des fichiers sans trop de soucis (eh oui, mes prédécesseurs ne se génait pas, et considérait la racine du C comme une poubelle ...), as-tu testé cela avec XP, Vista et Seven ?
13/10/2009, 17h45
Dr.Who

@Shay :

oui c'est fonctionnel sous 95, 98, 2000, Server, XP, Vista et Seven.

attention toute fois, il y a des limitations sous 95/98 et de legeres difference sous Vista/Seven.

si tu regarde dans ma ... houla ... LA source que j'ai deposer sur DFR, j'ai mis toutes les infos recupérée via la MSDN pour les constantes et fonctions.
13/10/2009, 17h54
ShaiLeTroll

ma ... la :mouarf: t'inquiète, je ne vais pas t'embèter à chaque fois, ... la dernière c'est parce que c'était un code déjà vu déjà présent dans Delphi ... alors que là ce sont des Wrappers très pratique que tu peux considérer comme les TIENS ! ;)
14/10/2009, 02h40
Dr.Who

à moi! à moi! :aie:
11/12/2009, 15h16
kheiropc

Unit SHFolder

Citation:

function GetSpecialFolderPath(folder: integer): string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array[0..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0, folder, 0, SHGFP_TYPE_CURRENT, @path[0])) then
Result := path
else
Result := 'Error';
end;