Si queremos que nuestra aplicación se inicie cada vez que arranca Windows:
Código Delphi
[-]
procedure RunForEver(pCaption, pPath : String);
var Registro :TRegistry;
begin
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
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]