Discussion :

[shadow578]

salut à vous,
Alors voilà j'ai un logiciel et j'aimerai qu'il se lance au démarage de windows.
Trés facile je pourrais créer un clé direct dans le registre, mais j'aimerai en faite que quand on lance mon logiciel.exe sa créer cette clé et qu'au prochain lancemement il se lance seul donc je voullais utiliser le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure EnregistetrayIcons(nom, chemin : string);
Var Registre : TRegistry;
begin
    //Récupère l'url de la page de démarrage
    Registre:=TRegistry.Create; //Crée un objet TRegistry
    Registre.RootKey:=HKEY_LOCAL_MACHINE; //Définit la clé principale
    Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
    Registre.WriteString(nom, chemin); //Ecrit dans la base de registres
    Registre.CloseKey; //Ferme la clé
    Registre.Free; //Détruit l'objet
end;

Mais sa ne fonctionne pas :/
Help

[Andnotor]

Sous Vista/Seven, ça ne fonctionnera pas sans élévation de privilèges.

[Dr.Who]

bien lire les conseils d'andnotor

et voici une utilisation correcte de Tregistry:

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
 
function SaveTrayIcon(const aName, aPath : string): boolean;
begin
  result := false;
  with TRegistry.create do
  try 
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
    begin
      WriteString(aName, aPath);
      result := true;
    end;
    CloseKey;
  finally
    Free;
  end;
end;