Bonjour,

Voilà, tout est presque dans le titre, je veux obtenir au runtime l'emplacement des styles.
Pour cela j'ai codé ceci qui fonctionne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
var RadVersion : String;
begin
case Round(system.CompilerVersion) of
  34 : Radversion:='21.0';
  33 : Radversion:='20.0';
  32 : RadVersion:='19.0';
end;
Opendialog.InitialDir:=GetEnvironmentVariable('RadPublic');
Opendialog.InitialDir:=Tpath.Combine(Opendialog.InitialDir,Radversion);
Opendialog.InitialDir:=Tpath.Combine(Opendialog.InitialDir,'Styles');
et qui doit être optimisé.
Toutefois n'y aurait-il pas un moyen plus simple d'obtenir le nombre (19..21) plutôt que de passer par ce case Round(system.CompilerVersion),
en évitant, autant que faire ce peu, la lecture de registre ?