Discussion :

[shell13010]

Bonjour a tous,

je suis devant un petit souci!!

j'ai un 'checklistbox' et je voudrais supprimer se que je coche,mais sa ne fonctionne pas!?!

voila se que j'ai fait:

Code :

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

1
2
3
4
5
uses ...Registry;
var 
reg : TRegistry;
begin
reg.DeleteKey {j'ai mi checklistbox1.checked};

mais sa ne fait rien es qu'il faut rajouter quelque choze?

merci d'avance

[Cl@udius]

Salut

Il faudrait que tu donnes plus de détail sur ce que tu souhaites faire, et surtout comment tu procèdes.
Parce que là on ne voit pas la relation entre le CheckListBox et la suppression d'une clé du registre.

@+

[shell13010]

Salut,

oupss desoler,

donc je travaille sur les clées qui son dans \run

alors j'ai crée un 'checklistbox' pour pouvoir selectionné et supprimer les logiciels qui son au demarrages!!!

alors voila mon souci,
je voudrais pouvoir supprimer les clées selectionner,

mais je n'y arrive pas car si je mais le chemin complet 'HKey local MACHINE\.............\run' bin sa me supprimer tout, alors que je voudrais juste ce qui on etais selectionner?

en esperant avoir etais plus precis.

merci d'avance

[Cl@udius]

OK, dans ce cas il me semble que tu utilises un DeleteKey au lieu d'un DeleteValue.

Fais un test, et tiens nous au courant.

@+ Claudius

[shell13010]

oui merci pour ta reponse.

alors je viens de faire avec reg.deleteValue(checklistbox.Checked);
mais quand je le lance il me mais une erreur

'['expected but')' found

donc sa beugue ici

(checklistbox.Checked);

voila mon souci,es que le code est bon?

merci

[Cl@udius]

voila mon souci,es que le code est bon?

Tu es de nature parcimonieuse !

Si tu montrais la procédure ou tu effectues cette suppression du registre. Je pense que l'on y verra plus clair.

Ce sont les noms des valeurs de la clé Run qui sont stockées dans la ListBox ?

@+ Claudius

[shell13010]

voila mon code avec un checklistbox et un bouton

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
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);       //bin ici c'est la procedure que tu ma proposer ;)
begin
  with TRegistry.Create(KEY_READ) do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False) then
      begin
        GetValueNames(CheckListBox1.Items); //ici recupere les clées
        CloseKey;
      end;
    finally
      Free;
    end;
  end;
end;
procedure TForm1.DesinstallerClick(Sender: TObject);
var
reg : TRegistry;
begin
  reg.DeleteValue(CheckListBox1.Checked); //ici (supprimer clée selectionner)
 end;
end

voila merci pour ton aide.

[Lung]

Voici ce que dit l'aide de Delphi :

Indique les éléments qui sont cochés.

property Checked[Index: Integer]: Boolean;

Description

Pour chaque membre de la propriété tableau Items, Checked a la valeur True si une coche apparaît dans la case à cocher de l'élément. Checked correspond à l'état cbChecked ; c'est-à-dire que Checked a la valeur True quand State = cbChecked et False quand State = cbUnchecked ou State = cbGrayed.

Remarque : Les éléments ayant été désactivés avec la propriété ItemEnabled peuvent encore avoir un état cbChecked et la valeur True pour la propriété Checked.

Donc, il te faut parcourir la liste de ta CheckListBox, tester si chaque élément est coché, et dans ce cas supprimer la clef correspondante dans la base de registre.

[anapurna]

salut

voila mon code avec un checklistbox et un bouton

Code :

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

1
2
3
4
5
6
7
8
9
 
...
procedure TForm1.DesinstallerClick(Sender: TObject);
var
reg : TRegistry;
begin
  reg.DeleteValue(CheckListBox1.Checked); //ici (supprimer clée selectionner)
 end;
end

...

tu devrai obtenir un truc de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.DesinstallerClick(Sender: TObject);
var
reg : TRegistry;
i : integer;
begin
  for i := 0 to pred(CheckListBox1.Count) do 
    if CheckListBox1.Checked[i] Then
      reg.DeleteValue(CheckListBox1.items[i]); //ici (supprimer clée selectionner)
 end;
end

@+ Phil

[shell13010]

salut a tous et merci pour l'aide que vous apportez,

'anapurna':

j'ai essayer comme tu ma dit mais sa ne ve pas supprimer la clées pourtant supprimer une clées et simple mais sa marche pas!grrr