Iniciar nuestra aplicación con Windows
 

Si queremos que nuestra aplicación se inicie cada vez que arranca Windows:

Código Delphi [-]
// Hay que añadir al uses Registry
procedure RunForEver(pCaption, pPath : String);
var Registro    :TRegistry;
begin
  //pCaption es el caption del programa, y path la ruta completa donde se encuentra el .exe
  Registro:=TRegistry.create;
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',FALSE) then
    Registro.WriteString(pCaption, pPath);
  Registro.Free; 
end;

Si lo que queremos es que se inicie una única vez al arrancar windows

Código Delphi [-]
procedure RunOnce(pCaption, pPath : String);
var Registro    :TRegistry;
begin
  //pCaption es el caption del programa, y path la ruta completa donde se encuentra el .exe
  Registro:=TRegistry.create;
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce',FALSE) then
    Registro.WriteString(pCaption, pPath);
  Registro.Free;
end;

[HTML]<b>
Edito: Modificado para que al final en lugar de Destroy haga un Free,
lo puse para ver si estaban atentos y como siempre Dec está al loro! jeje.
No, es broma, me he colado, gracias por el apunte Dec.
</b>[/HTML]

Hola,

¿Porqué llamas al método "Destroy" en lugar de al método "Free" cuando quieres liberar el objeto "Registry"? Piensa que "Free" termina llamando también a "Destroy", pero, antes se asegura de que dicho objeto esté correctamente asignado (<> nil).

Es una sugerencia, ¿eh? ;)

hola,

este procedure se debe colocar en el codigo del programa que se quiere que inicie con windows o aparte, esto es que si se mete al programa que se quiere iniciar entonces se estaria mandando llamar el procedure cada que corra el programa.