Discussion :

[barucca]

Bonjour,

Je souhaite selon le choix d'une combobox écrire ou effacer une clef dans la base de registre.
j'arrive a écrire cette clef mais pas a l'effacer, pourriez vous me dire ce qui ne fonctionne pas dans ce code SVP??

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
 
if cbAutoExec.Checked=true then
  begin
 
    // On définie le nom de la clé qui sera dans le registre
    nomdelakey := 'ma clef';
 
    // On définie le chemin de destination du programme
    programme := Application.ExeName;
 
    // On crée la clé dans la registre
    Registre:=TRegistry.Create;
    Registre.RootKey:=HKEY_CURRENT_USER;
    Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run\',True);
    Registre.WriteString(nomdelakey,programme);
    Registre.CloseKey;
    Registre.Free;
 
  end
  else
  begin
    // On définie le nom de la clé qui sera dans le registre
    nomdelakey := 'ma clef';
 
    // On définie le chemin de destination du programme
    programme := Application.ExeName;
 
    // On crée la clé dans la registre
    Registre:=TRegistry.Create;
    Registre.RootKey:=HKEY_CURRENT_USER;    
    Registre.DeleteKey(nomdelakey);
    Registre.Free;
 
  end;

Merci!

[Duan]

Au lieu de

Code :

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

 Registre.DeleteKey(nomdelakey);

essaie:

Code :

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

 Registre.DeleteValue(nomdelakey);

Salutation !!!

Duan