Alguien sabe como hacer que tu aplicacion se ejecute...

[S.M.S.]

Empezado por Supra

Hola alguien sabe como hacer que la aplicacion ejecute Alguna cosa a tal fecha
ejemplo que salga algun mesaje el dia 1 de todos los meses

Volviendo a la duda que planteaste, si, como me da la impresión, lo que pretendes es que al iniciarse windows compruebe la fecha y en el caso de que sea la que tu deseas tu aplicación haga algo, en ese caso no necesitarás un timer, sino que puedes hacer que al arrancar la computadora tu programa se cargue en memoria (incluso oculto), compruebe la fecha y, en su caso, haga lo que necesites o termine.

Para que se cargue automáticamente coloca tu aplicación en la carpeta Inicio o edita una clave en el regitro de Windows 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Mi_Aplicacion' cuyo valor sea la ruta de destino de tu exe.

Luego para el ejemplo concreto que solicitas podría ser:

implementation
 uses DateUtils;
 //..... 
 procedure TForm1.FormCreate(Sender: TObject); 
 begin
   if DayOf (Date) = 1 then 
   showmessage ('hoy es día 1'); 
 end;

Saludos.

[Ricardojosep]

Hola amigo Supra, pues lo que tienes que hacer en el timer es:

porner el tiempo de 1 dia que seria: 60*60*24*1000 = 86400000.

y en el evento OnTimer poner lo que S.M.S puso en el evento OnCreate de la Form

if DayOf (Date) = 1 then
showmessage ('hoy es día 1');

y si tu aplicacion se ejecuta para siempre es eso lo que tienes que hacer, y si no, tienes que hacer lo que te dijo S.M.S

[Supra]

Bueno lo del registro seria asi

primero pongo mi aplicacion invisible y despues

procedure TForm1.FormCreate(Sender: TObject);
var

Registro :TRegistry;

begin

Registro:=TRegistry.create;

Registro.RootKey := HKEY_LOCAL_MACHINE;

if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',FALSE) then

Registro.WriteString('Nombre de mi aplicacion',Aqui la direccion donde se encuentra el exe\Mi aplicacion.exe');

Registro.Destroy;

end;


Sin olvidar

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, StdCtrls, Registry;

Y despues cada que se inicie windows se abre mi aplicacion que esta previa mente invisible asta aqui voy bien bueno estoy en eso xDDD

ahora entonses seria asi
con un timer por que si tengo la maquina prendida hasta la noche y pasan las 12:00 p.m. no me daria resultado o me equivoco bueno aver si queda bien


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, StdCtrls, Registry, DateUtils;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
if DayOf (Date) = 1 then
showmessage ('hoy es día 1');
end;
Form1.Visible := True;
End;

eso estaria vien o no

Salu2