12 replies to this topic

[enecumene]

Si deseas que tu aplicación se inicie junto con Windows, pues aquí dejo el code de cómo hacerlo:

delphi

uses Registry;
...
 
procedure AutoInicio;
var key: string;
     Reg: TRegIniFile;
begin
  key := '\Software\Microsoft\Windows\CurrentVersion\Run';
  Reg := TRegIniFile.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.CreateKey(Key);
    if Reg.OpenKey(Key,False) then Reg.WriteString(key, 'Nombre Aplicación', 'c:\aplicacion.exe');
  finally
    Reg.Free;
  end;
end;

Y para removerlo:

delphi

uses Registry;
...
 
procedure RemoverAutoInicio;
var key: string;
     Reg: TRegIniFile;
begin
  key := '\Software\Microsoft\Windows\CurrentVersion\Run';
  Reg:=TRegIniFile.Create;
try
  Reg.RootKey:=HKey_Local_Machine;
  if Reg.OpenKey(Key,False) then Reg.DeleteValue('Nombre de la Aplicación');
  finally
  Reg.Free;
  end;
end;

Qué lo disfruten .

Saludos.

[Fenareth]

mil gracias Enecumene, justo estoy trabajando en algo que se verá de perlas con esto... 

Saludox ! 

[enecumene]

Justo a tiempo ¿no?

[egostar]

Dicen que es mejor llegar a tiempo que ser invitado

Gracias por el aporte amigo

Salud OS

[Caral]

Hola
Muy bueno amigo, siempre con aportes interesantes y nutritivos.
Saludos

[felipe]

Solo una cosa amigo, ¿en que momento o cómo es la aplicación de este código?


Saludos!

[enecumene]

Solo una cosa amigo, ¿en que momento o cómo es la aplicación de este código?


Saludos!

Amigo, eso lo puedes aplicar como parte de las configuraciones de tu sistema, por ejemplo, tu sistema tiene un apartado de opciones y configuraciones, en ella se encuentra un checkBox llamado "ejecutar programa al iniciar Windows" algo común en muchos programas y sistemas, lo cotejas, y lo guardas, por ejemplo:

delphi

if CheckBox1.Checked then begin
  AutoInicio;
end else begin
  RemoverAutoInicio;
end;

ó

delphi

Case CheckBox1.Checked of
  True:  AutoInicio;
  False: RemoverAutoInicio;
end;

Es muy sencillo amigo .

Saludos.

[Wilson]

Gracias compañero, muy buen aporte.

Solo una cosa amigo, ¿en que momento o cómo es la aplicación de este código?


Saludos!

Ideal para  programas invisibles o (Tray Icon). Por ejemplo yo desrrollé una pequeña aplicación invisible con un Timer que chequea los procesos actuales, y cada que detecta el messenger lo cierra y manda al empleado a trabajar. Con el aporte de enecuneme simplemente me aseguro que arranque junto con windows.

Saludos.

[Delphius]

A mi me ha picado el bicho de la duda. ¿Aplica esto mismo cuando la aplicación tiene DataModule? No he hecho la prueba de como se comportaría una aplicación que se ejecute al inicio y que además necesita de conexión a una base de datos.

Sobre todo en Lazarus, que todavía no he investigado si tiene algo de diferente a Delphi en esto.

 

En Delphi al menos, cuando uno pone TDataModules éstos se cargan al comienzo y recién los forms. ¿No hay problema en que se invoque justo en lugar del ponerlo en el Main form sino en el proyecto? Me hace dudar de si es viable (y aconsejable) poner esto en el OnCreate, que sería el primer lugar obvio.

Pero claro, de hacerlo así debería evaluar si efectivamente no existe primero la clave de inicio. Porque veamos... se ejecuta el soft ni bien se instala o se copia. Allí mismo detectamos que la clave no está y la ponemos. Al siguiente día, o reinicio, el propio Windows levanta la aplicación y de nuevo comprueba si tiene que escribir la clave. Ummm. se me hace que es más apropiado justamente tener directamente una variable tipo flag IsRegisterInAutoStart que pueda leerse desde un archivo ini para ver si tiene que escribir en el registro o no.

 

El dilema de iniciarlo con Windows en mi caso es que éste tenga el debido cuidado de ejecutarse después que el motor de base de datos sino fallará el intento de conectarse.

 

¿Cómo lo encararon ustedes?

 

Saludos,

[Agustin Ortu]

Hola Marce,

 

No llego a ver cual es el problema en primero chequear el registro y luego establecer conexion con la BD; o en el orden inverso

 

En particular yo lo implemento así para un server Datasnap, aunque aplica a cualquier tipo de aplicacion

En el .dpr:

php

uses
  [...],
  App.AutoRun,
  App.AutoRun.Win;
 
var
  AutoRun: IAppAutoRun;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Servidor Pedidos';
  AutoRun := TWindowsRegistryAutoStart.Create;
  AutoRun.RegisterAutoStart;
  Application.CreateForm(TServerContainer, ServerContainer);
  Application.CreateForm(TFMain, FMain);
  Application.Run;
end.

Unidades: App.AutoRun.pas y App.AutoRun.Win.pas

 

Aún asi, ahora me estoy dando cuenta que en mi interface IAppAutoRun seria bueno contar con un metodo IsAutoRunRegistered: Boolean

[Delphius]

El mayor peligro es el diseño que tiene Windows que al ejecutar los procesos estos no necesariamente respetan el mismo orden siempre.

Si se inicia la aplicación antes que el motor deberá esperar a que éste esté activo para poder conectarse. En el caso de Firebird por ejemplo, a menos que se use la versión embebida, deberá cuidarse de que el proceso Guardian se ejecute primero ya que éste es el que levanta al propio Server.

 

Lo de tener esa propiedad boolean, ¿no es justamente algo que yo comenté? Algo como primero evaluar si va a hacer falta meter la clave de registro para el inicio.

 

Saludos,

[Agustin Ortu]

Ah, ahora entiendo, no lo habia pensado nunca de esa manera; si el servicio de firebird (o el que fuera) no esta vivito y coleando obviamente cuando nuestro programa arranque no va a poder conectar

 

Buen punto

 

En ese caso creo que lo mejor seria recurrir a la "fuerza bruta" y poner un timeout elevado

 

Aunque tenes razon en que la implementacion de Windows es realmente un desastre

[Delphius]

Yo me di cuenta ahora que analicé que mi aplicación requiere de iniciarse justamente al inicio. Y utiliza Firebird, y se me prendió la lamparita... con el ¿y que pasa si...? Y bue, hay que preveer eso. Yo también evalúo que no hay otra opción, al menos más barata, que disponer de un buen timeout y tratar de conectar unas cuantas veces hasta que entre. Es eso o rebuscarse con la posibilidad de verificar si está levantado el proceso del Server (si está el Server, por lógica lo está el Guardian... a menos que alguien intencionalmente tumbe e Guardian una vez que levanta el Server) metido en algún ciclo y jugarse con la posibilidad (muy baja) de que nunca levante...

 

En esta ocasión preveo un Embebed (muy posiblemente o quizá me anime de forma directa a usar el Super Server) pero ya ando pensando para la próxima version (será un proyecto que ira escalando) sea más elaborada, que permita un esquema Cliente Servidor... algo así como una versión Lite y una Pro.

 

Saludos,