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
|