Discussion :

[mohfa2001]

Salut :

J'utilse ce code pour pouvoir lister les Apps trouvées dans :

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

mais ça m'a rien donné

Le code :

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
 
procedure TForm1.Button4Click(Sender: TObject);
var
  reg: TRegistry;
  Strs: TStrings;
begin
  reg := TRegistry.Create;
  try
    Strs:= TStringList.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
 
    reg.GetValueNames(Strs); 
    m.Lines.Assign(Strs);
    reg.CloseKey;
  finally
    reg.Free;
    Strs.Free;
  end;
end;

y-il une erreur ???

Merçi

[shell13010]

bonsoir

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
 
 
uses
  Registry;
 
begin
  with TRegistry.Create(KEY_READ) do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False) then
      begin
        GetValueNames(ListBox1.Items);
        CloseKey;
      end;
    finally
      Free;
    end;
  end;
end;

liste toutes les sous clés de la clés \run et qu'il les affiche dans le listbox

mais j'avais fait un petit prog qui lister tout les programmes lancer au demarrage et il y en n'a aussi qui sont dans

Code :

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

HKLU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

[mohfa2001]

Merçi shell13010

Il me donne une erreur au :
Registre.GetKeyName(Listing);

undeclared identifier GetKeyName ( je croix c'est GetKeyNames )

en tous cas ça m'a rien donnée .


merçi

[mohfa2001]

desolé j'ai pas vu ta modification mais ça marche bien

est-ce que tu peux m'ajouter pour pouvoire lister meme les :
valeurs ( Data ) .

et merçi

[mohfa2001]

Merçi , c'est bon .