Bonjour,

Je travail avec les registres pour obtenir les repertoires spéciaux:
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
function GetProgramFilesDir: string;
var
 reg: TRegistry;
begin
 try
 reg := TRegistry.Create;
 try
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
  Result := reg.ReadString('ProgramFilesDir');
 finally
  reg.Free;
 end;
  except
  end;
end;
Juste ca compile pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Identificateur non déclaré: "HKEY_LOCAL_MACHINE"
J'ai déclaré module 'Registry' dant les 'Uses'. Qu'est-ce que j'ai oublié?

Merci