GetEnvironmentVariable() me fait des misères.

**bvsud** · 07/10/2014, 18h56

Bonjour à tous

Ce code ne passe pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
GetEnvironmentVariable('CSIDL_DEFAULT_COOKIES', Addr(CSIDL_DEFAULT_COOKIES), 255);
Rep_Cookies_IE := StrPas(CSIDL_DEFAULT_COOKIES);

où CSIDL_DEFAULT_COOKIES est un tableau de char, et Rep_Cookies_IE un string.

Sitôt que j'utilise les variable d'environnement de type "CSIDL", j'obtiens une chaînne vide... Les autres fonctionnent (Pourquoi ?

Delphi 7. Seven 64.

Merci

**exoseven** · 07/10/2014, 19h22

une piste ... depuis vista CSIDL est obsolète il faut utiliser KNOWNFOLDERID

teste un code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rep_Cookies_IE := GetKnownFolderPath(FOLDERID_Cookies, 0, 0) ;

**bvsud** · 07/10/2014, 20h22

Envoyé par exoseven

une piste ... depuis vista CSIDL est obsolète il faut utiliser KNOWNFOLDERID

teste un code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rep_Cookies_IE := GetKnownFolderPath(FOLDERID_Cookies, 0, 0) ;

OK ! Merci Exoseven

Je vais le tester tout de suite et je te tiens au courant.

**bvsud** · 07/10/2014, 21h14

Envoyé par exoseven

une piste ... depuis vista CSIDL est obsolète il faut utiliser KNOWNFOLDERID

teste un code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rep_Cookies_IE := GetKnownFolderPath(FOLDERID_Cookies, 0, 0) ;

Hum.. Où donc est déclarée cette fonction, et le type KNOWNFOLDERID ? Je cherche partout, mais même chez Embarcadero, il n'y a rien là-dessus. Je la transcris du C (source M$) ? Pourquoi pas... Mais ça fait si longtemps que je ne programmais plus en C que je vais un peu galérer.

P.S.: j'ai parlé trop vite ! Ici : ~~http://www.delphidabbler.com/software/shellfolders~~

**exoseven** · 08/10/2014, 07h40

sous delphi 7 tu dois importer la fonction, utilise cette unité trouvé ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
unit uGetKnownFolderPath;
 
interface
 
uses
  Windows;
 
const
  FOLDERID_AddNewPrograms        : TGUID = '{de61d971-5ebc-4f02-a3a9-6c82895e5c04}';
  FOLDERID_AdminTools            : TGUID = '{724EF170-A42D-4FEF-9F26-B60E846FBA4F}';
  FOLDERID_AppUpdates            : TGUID = '{a305ce99-f527-492b-8b1a-7e76fa98d6e4}';
  FOLDERID_CDBurning             : TGUID = '{9E52AB10-F80D-49DF-ACB8-4330F5687855}';
  FOLDERID_ChangeRemovePrograms  : TGUID = '{df7266ac-9274-4867-8d55-3bd661de872d}';
  FOLDERID_CommonAdminTools      : TGUID = '{D0384E7D-BAC3-4797-8F14-CBA229B392B5}';
  FOLDERID_CommonOEMLinks        : TGUID = '{C1BAE2D0-10DF-4334-BEDD-7AA20B227A9D}';
  FOLDERID_CommonPrograms        : TGUID = '{0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8}';
  FOLDERID_CommonStartMenu       : TGUID = '{A4115719-D62E-491D-AA7C-E74B8BE3B067}';
  FOLDERID_CommonStartup         : TGUID = '{82A5EA35-D9CD-47C5-9629-E15D2F714E6E}';
  FOLDERID_CommonTemplates       : TGUID = '{B94237E7-57AC-4347-9151-B08C6C32D1F7}';
  FOLDERID_ComputerFolder        : TGUID = '{0AC0837C-BBF8-452A-850D-79D08E667CA7}';
  FOLDERID_ConflictFolder        : TGUID = '{4bfefb45-347d-4006-a5be-ac0cb0567192}';
  FOLDERID_ConnectionsFolder     : TGUID = '{6F0CD92B-2E97-45D1-88FF-B0D186B8DEDD}';
  FOLDERID_Contacts              : TGUID = '{56784854-C6CB-462b-8169-88E350ACB882}';
  FOLDERID_ControlPanelFolder    : TGUID = '{82A74AEB-AEB4-465C-A014-D097EE346D63}';
  FOLDERID_Cookies               : TGUID = '{2B0F765D-C0E9-4171-908E-08A611B84FF6}';
  FOLDERID_Desktop               : TGUID = '{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}';
  FOLDERID_Documents             : TGUID = '{FDD39AD0-238F-46AF-ADB4-6C85480369C7}';
  FOLDERID_Downloads             : TGUID = '{374DE290-123F-4565-9164-39C4925E467B}';
  FOLDERID_Favorites             : TGUID = '{1777F761-68AD-4D8A-87BD-30B759FA33DD}';
  FOLDERID_Fonts                 : TGUID = '{FD228CB7-AE11-4AE3-864C-16F3910AB8FE}';
  FOLDERID_Games                 : TGUID = '{CAC52C1A-B53D-4edc-92D7-6B2E8AC19434}';
  FOLDERID_GameTasks             : TGUID = '{054FAE61-4DD8-4787-80B6-090220C4B700}';
  FOLDERID_History               : TGUID = '{D9DC8A3B-B784-432E-A781-5A1130A75963}';
  FOLDERID_InternetCache         : TGUID = '{352481E8-33BE-4251-BA85-6007CAEDCF9D}';
  FOLDERID_InternetFolder        : TGUID = '{4D9F7874-4E0C-4904-967B-40B0D20C3E4B}';
  FOLDERID_Links                 : TGUID = '{bfb9d5e0-c6a9-404c-b2b2-ae6db6af4968}';
  FOLDERID_LocalAppData          : TGUID = '{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
  FOLDERID_LocalAppDataLow       : TGUID = '{A520A1A4-1780-4FF6-BD18-167343C5AF16}';
  FOLDERID_LocalizedResourcesDir : TGUID = '{2A00375E-224C-49DE-B8D1-440DF7EF3DDC}';
  FOLDERID_Music                 : TGUID = '{4BD8D571-6D19-48D3-BE97-422220080E43}';
  FOLDERID_NetHood               : TGUID = '{C5ABBF53-E17F-4121-8900-86626FC2C973}';
  FOLDERID_NetworkFolder         : TGUID = '{D20BEEC4-5CA8-4905-AE3B-BF251EA09B53}';
  FOLDERID_OriginalImages        : TGUID = '{2C36C0AA-5812-4b87-BFD0-4CD0DFB19B39}';
  FOLDERID_PhotoAlbums           : TGUID = '{69D2CF90-FC33-4FB7-9A0C-EBB0F0FCB43C}';
  FOLDERID_Pictures              : TGUID = '{33E28130-4E1E-4676-835A-98395C3BC3BB}';
  FOLDERID_Playlists             : TGUID = '{DE92C1C7-837F-4F69-A3BB-86E631204A23}';
  FOLDERID_PrintersFolder        : TGUID = '{76FC4E2D-D6AD-4519-A663-37BD56068185}';
  FOLDERID_PrintHood             : TGUID = '{9274BD8D-CFD1-41C3-B35E-B13F55A758F4}';
  FOLDERID_Profile               : TGUID = '{5E6C858F-0E22-4760-9AFE-EA3317B67173}';
  FOLDERID_ProgramData           : TGUID = '{62AB5D82-FDC1-4DC3-A9DD-070D1D495D97}';
  FOLDERID_ProgramFiles          : TGUID = '{905e63b6-c1bf-494e-b29c-65b732d3d21a}';
  FOLDERID_ProgramFilesX64       : TGUID = '{6D809377-6AF0-444b-8957-A3773F02200E}';
  FOLDERID_ProgramFilesX86       : TGUID = '{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}';
  FOLDERID_ProgramFilesCommon    : TGUID = '{F7F1ED05-9F6D-47A2-AAAE-29D317C6F066}';
  FOLDERID_ProgramFilesCommonX64 : TGUID = '{6365D5A7-0F0D-45E5-87F6-0DA56B6A4F7D}';
  FOLDERID_ProgramFilesCommonX86 : TGUID = '{DE974D24-D9C6-4D3E-BF91-F4455120B917}';
  FOLDERID_Programs              : TGUID = '{A77F5D77-2E2B-44C3-A6A2-ABA601054A51}';
  FOLDERID_Public                : TGUID = '{DFDF76A2-C82A-4D63-906A-5644AC457385}';
  FOLDERID_PublicDesktop         : TGUID = '{C4AA340D-F20F-4863-AFEF-F87EF2E6BA25}';
  FOLDERID_PublicDocuments       : TGUID = '{ED4824AF-DCE4-45A8-81E2-FC7965083634}';
  FOLDERID_PublicDownloads       : TGUID = '{3D644C9B-1FB8-4f30-9B45-F670235F79C0}';
  FOLDERID_PublicGameTasks       : TGUID = '{DEBF2536-E1A8-4c59-B6A2-414586476AEA}';
  FOLDERID_PublicMusic           : TGUID = '{3214FAB5-9757-4298-BB61-92A9DEAA44FF}';
  FOLDERID_PublicPictures        : TGUID = '{B6EBFB86-6907-413C-9AF7-4FC2ABF07CC5}';
  FOLDERID_PublicVideos          : TGUID = '{2400183A-6185-49FB-A2D8-4A392A602BA3}';
  FOLDERID_QuickLaunch           : TGUID = '{52a4f021-7b75-48a9-9f6b-4b87a210bc8f}';
  FOLDERID_Recent                : TGUID = '{AE50C081-EBD2-438A-8655-8A092E34987A}';
  //FOLDERID_RecordedTV            : TGUID = '';
  FOLDERID_RecycleBinFolder      : TGUID = '{B7534046-3ECB-4C18-BE4E-64CD4CB7D6AC}';
  FOLDERID_ResourceDir           : TGUID = '{8AD10C31-2ADB-4296-A8F7-E4701232C972}';
  FOLDERID_RoamingAppData        : TGUID = '{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}';
  FOLDERID_SampleMusic           : TGUID = '{B250C668-F57D-4EE1-A63C-290EE7D1AA1F}';
  FOLDERID_SamplePictures        : TGUID = '{C4900540-2379-4C75-844B-64E6FAF8716B}';
  FOLDERID_SamplePlaylists       : TGUID = '{15CA69B3-30EE-49C1-ACE1-6B5EC372AFB5}';
  FOLDERID_SampleVideos          : TGUID = '{859EAD94-2E85-48AD-A71A-0969CB56A6CD}';
  FOLDERID_SavedGames            : TGUID = '{4C5C32FF-BB9D-43b0-B5B4-2D72E54EAAA4}';
  FOLDERID_SavedSearches         : TGUID = '{7d1d3a04-debb-4115-95cf-2f29da2920da}';
  FOLDERID_SEARCH_CSC            : TGUID = '{ee32e446-31ca-4aba-814f-a5ebd2fd6d5e}';
  FOLDERID_SEARCH_MAPI           : TGUID = '{98ec0e18-2098-4d44-8644-66979315a281}';
  FOLDERID_SearchHome            : TGUID = '{190337d1-b8ca-4121-a639-6d472d16972a}';
  FOLDERID_SendTo                : TGUID = '{8983036C-27C0-404B-8F08-102D10DCFD74}';
  FOLDERID_SidebarDefaultParts   : TGUID = '{7B396E54-9EC5-4300-BE0A-2482EBAE1A26}';
  FOLDERID_SidebarPart           : TGUID = '{A75D362E-50FC-4fb7-AC2C-A8BEAA314493}';
  FOLDERID_StartMenu             : TGUID = '{625B53C3-AB48-4EC1-BA1F-A1EF4146FC19}';
  FOLDERID_Startup               : TGUID = '{B97D20BB-F46A-4C97-BA10-5E3608430854}';
  FOLDERID_SyncManagerFolder     : TGUID = '{43668BF8-C14E-49B2-97C9-747784D784B7}';
  FOLDERID_SyncResultsFolder     : TGUID = '{289a9a43-be44-4057-a41b-587a76d7e7f9}';
  FOLDERID_SyncSetupFolder       : TGUID = '{0F214138-B1D3-4a90-BBA9-27CBC0C5389A}';
  FOLDERID_System                : TGUID = '{1AC14E77-02E7-4E5D-B744-2EB1AE5198B7}';
  FOLDERID_SystemX86             : TGUID = '{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}';
  FOLDERID_Templates             : TGUID = '{A63293E8-664E-48DB-A079-DF759E0509F7}';
  //FOLDERID_TreeProperties        : TGUID = '';
  FOLDERID_UserProfiles          : TGUID = '{0762D272-C50A-4BB0-A382-697DCD729B80}';
  FOLDERID_UsersFiles            : TGUID = '{f3ce0f7c-4901-4acc-8648-d5d44b04ef8f}';
  FOLDERID_Videos                : TGUID = '{18989B1D-99B5-455B-841C-AB7C74E4DDFC}';
  FOLDERID_Windows               : TGUID = '{F38BF404-1D43-42F2-9305-67DE0B28FC23}';
 
const
  KF_FLAG_CREATE              = $00008000;
  KF_FLAG_DONT_VERIFY         = $00004000;
  KF_FLAG_DONT_UNEXPAND       = $00002000;
  KF_FLAG_NO_ALIAS            = $00001000;
  KF_FLAG_INIT                = $00000800;
  KF_FLAG_DEFAULT_PATH        = $00000400;
  KF_FLAG_NOT_PARENT_RELATIVE = $00000200;
  KF_FLAG_SIMPLE_IDLIST       = $00000100;
  KF_FLAG_ALIAS_ONLY          = $80000000;
 
 
function GetKnownFolderPath(const rfid: TGUID) : WideString;
 
implementation
 
uses
  SysUtils;
 
const
  SHELL32_DLL : String = 'SHELL32.DLL';
 
// Systemordner ab Vista ermitteln
// DYNAMISCHER FUNKTIONSIMPORT !!!
type
  TShGetKnownFolderPath = function(const rfid : TGUID;
                                   dwFlags : DWord;
                                   hToken : THandle;
                                   out ppszPath : PWideChar): HResult; stdcall;
 
{*** Systemordner ab Vista ermitteln ***}
function ShGetKnownFolderPath(const rfid: TGUID;
                              dwFlags: DWord;
                              hToken: THandle;
                              out ppszPath: PWideChar): HResult;
var
  DLL_Handle : THandle;
  DLL_ShGetKnownFolderPath  : TShGetKnownFolderPath; 
begin
  Result := 0;
  // Handle für die SHELL32.DLL erhalten
  DLL_Handle := LoadLibrary(PChar(SHELL32_DLL));
  // Wenn Handle vorhanden, Adressen der Funktionen ermitteln
  if DLL_Handle <> 0 then
    begin
      // Adressen ermitteln
      @DLL_ShGetKnownFolderPath := GetProcAddress(DLL_Handle, 'SHGetKnownFolderPath');
      // Wurde SHGetKnownFolderPath in der DLL gefunden?
      if @DLL_ShGetKnownFolderPath <> nil then
        begin
          Result:= DLL_ShGetKnownFolderPath(rfid, dwFlags, hToken, ppszPath);
        end
      else
        begin
          RaiseLastOSError;
        end;
      FreeLibrary(DLL_Handle);
    end
  else
    begin
      RaiseLastOSError;
    end;
end;
 
 
function GetKnownFolderPath(const rfid: TGUID) : WideString;
var
  OutPath : PWideChar;
begin
  if ShGetKnownFolderPath(rfid, 0, 0, OutPath) >= 0 then
    begin
      Result := OutPath;
    end
  else
    begin
      Result := #0;
    end;
end;
 
end.

utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rep_Cookies_IE := GetKnownFolderPath(FOLDERID_Cookies) ;

sous XP cela retournera une chaine vide et tu devras utiliser CSIDL

**bvsud** · 08/10/2014, 08h59

Ah !

Voilà pourquoi, malgré la VCL, importée dans mon paquet perso, Delphi ne voit pas la déclaration de la routine ?

Msg d'ereur :

Malgré l'inclusion de la VCL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, XiPanel, XiButton, JvExComCtrls,
  JvStatusBar, ShellApi, StrUtils, PJShellFolders;

Ca viendrait de là ? Ah...

**bvsud** · 09/10/2014, 20h28

Envoyé par exoseven

sous delphi 7 tu dois importer la fonction, utilise cette unité trouvé ici

Remarquable, cette fonction ! Merci ExoSeven

Je remarque l'absence du répertoire temporaire. Ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
GetEnvironmentVariable('TEMP', Addr(TEMP), 255);

où TEMP est un tableau de char, retourne cette forme-là : C:\Users\Profil~1\AppData\Local\Temp . Peut-on l'initialiser en dur ? Le répertoire des fichiers temporaires ne peut-il jamais changer ?

GetEnvironmentVariable() me fait des misères.

API, COM et SDKs Delphi

Discussions similaires

Partager

Partager