Discussion :

[SergioMaster]

Bonjour,

une fois n'est pas coutume, je veux modifier par programme, une clé de registre.

Objectif : changer la voix de synthèse au runtime

pour cela j'ai :
1- récupéré la voix par défaut
2- récupéré la liste des voix disponibles

vous excuserez le code pas très propre, ce n'est encore qu'un brouillon

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
 
const 
 DefaultHKU = 'Software\Microsoft\Speech_OneCore\Settings\TextToSpeech';
 
procedure TForm117.Button2Click(Sender: TObject);
var r : TRegistry;
    sl : TStringList;
 
    Voix,K : String;
 
const tokens = 'SOFTWARE\Microsoft\Speech_OneCore\Voices\Tokens';
begin
  r:=TRegistry.Create(KEY_READ OR KEY_WOW64_64KEY);
  sl:=TStringList.Create;
  r.RootKey:=HKEY_CURRENT_USER;
  R.OpenKeyReadOnly(DefaultHKU);
  Voix:=R.ReadString('Voice');
  rvoice:=Voix;
  memo1.Lines.Add(rvoice);
  r.CloseKey;
 
  r.RootKey:=HKEY_LOCAL_MACHINE;
  R.OpenKeyReadOnly(tokens);
  r.GetKeyNames(Sl);
  R.CloseKey;
  for var t in Sl do
    begin
      k:=Format('%s\%s',[tokens,t]);
      r.OpenKeyReadOnly(k+'\Attributes');
      Combobox1.Items.AddObject(R.ReadString('Name'),TVoice.Create(R.ReadString('Name'),'HKEY_LOCAL_MACHINE\'+k));
      r.CloseKey;
    end;
  ComboBox1.ItemIndex:=Sl.IndexOf(ExtractFileName(voix));
  FreeAndNil(R);
  FreeAndNil(sl);
end;

Cette partie là fonctionne

Voilà le problème : comment modifier le registre

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
 
procedure TForm117.ComboBox1Change(Sender: TObject);
var R : TRegistry;
begin
if RVoice<>TVoice(Combobox1.Items.Objects[ComboBox1.ItemIndex]).Fichier then
 begin
  r:=TRegistry.Create(KEY_WOW64_64KEY);
  r.RootKey:=HKEY_CURRENT_USER;
  r.OpenKey(DefaultHKU,false);
  r.WriteString('Voice',TVoice(Combobox1.Items.Objects[ComboBox1.ItemIndex]).Fichier);
  r.CloseKey;
  Memo1.Lines.Add(TVoice(Combobox1.Items.Objects[ComboBox1.ItemIndex]).Fichier);
  FreeAndNil(r);
end;
end;

Problème j'obtiens une exception de type ERegistryException avec le message 'Echec à la définition des données pour 'Voice'' !

Questions :
a) j'ai un doute sur la création du TRegistry avec "seulement" le KEY_WOW64_64KEY en ajoutant KEY_WRITE OR KEY_WOW64_64KEY, plus d'erreur
b) un doute sur la mise à jour sans avoir besoin d'exécuter le programme en mode administrateur (besoin d'un manifeste?) (a priori non)
c) un doute sur l'application sans que le programme soit redémarré (même ainsi je suis toujours avec la même voix la piste registre ne serait pas la bonne ?)
d) utiliser le "bac à sable" du registre serait-il possible ?

[Andnotor]

a) j'ai un doute sur la création du TRegistry avec "seulement" le KEY_WOW64_64KEY en ajoutant KEY_WRITE OR KEY_WOW64_64KEY, plus d'erreur

OpenKey ne force aucun flag. Si tu les redéfinis au Create (par défaut KEY_ALLACCESS), il faut ajouter tous ceux dont tu as besoin et donc KEY_WRITE.

Cela dit HKCU/Software est une clé partagée et non redirigée. KEY_WOW64_64KEY est inutile (voire problématique, cf. ci-dessous).

b) un doute sur la mise à jour sans avoir besoin d'exécuter le programme en mode administrateur (besoin d'un manifeste?) (a priori non)

HKCU ne nécessite pas de droit administrateur.

c) un doute sur l'application sans que le programme soit redémarré (même ainsi je suis toujours avec la même voix la piste registre ne serait pas la bonne ?)

Soit ça nécessite une déconnexion de la session, soit c'est KEY_WOW64_64KEY qui crée une redirection (un nœud WOW6432Node) qui n'a pas lieu d'être sous HKCU.

d) utiliser le "bac à sable" du registre serait-il possible ?

Qu'est-ce que c'est ?

[Charly910]

Bonjour,
le bac à sable ou Sandbox est une fonctionnalité qui a été ajoutée à W10 Pro version 1903. Il permet d'exécuter un logiciel ou un script dans un espace protégé sans altérer les fichiers système de Windows ou le registre.

il faut l'installer comme une fonctionnalité optionnelle dans W10.

A+
Charly