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

[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