Discussion :

[LN(a)]

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

[the_magik_mushroom]

ya des api qui font ça très bien :

http://delphi.developpez.com/faq/?pa...ecialdirectory

[Bloon]

Ajoute Windows dans les unités uses

Bloon

[LN(a)]

Merci beaucoup!
Ca marche!