Cita:
Empezado por ecfisa
Hola ZiriusB.
Código Delphi [-]program Project1;
uses
Forms, Windows, SysUtils, Registry,
Unit1 in 'Unit1.pas' ,
Unit2 in 'Unit2.pas' ;
{$R *.res}
function isSetDailyCashBox: Boolean;
const
KNAME = 'SoftWare\Your_App_Name\DailyCashBox';
VNAME = 'LastUpdate';
var
rg: TRegistry;
dt: TDateTime;
begin
rg := TRegistry.Create;
rg.RootKey := HKEY_CURRENT_USER;
dt := 0;
rg.OpenKey(KNAME, True);
try
if not rg.ValueExists(VNAME) then
rg.WriteDate(VNAME, dt);
dt := rg.ReadDate(VNAME);
Result := dt = Date;
rg.WriteDate(VNAME, Date);
finally
rg.CloseKey;
end;
end;
begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.ShowMainForm := False;
if not isSetDailyCashBox then
begin
frmDailyCashBox := TfrmDailyCashBox.Create(nil);
try
frmDailyCashBox.ShowModal;
finally
frmDailyCashBox.Free;
end;
end;
Application.ShowMainForm := True;
Application.Run;
end.
Saludos
|
Buenis dias, gracias por la respuesta, dos preguntas:
1.- El registro de validacion ¿donde se guarda? es decir, al abrir el programa luego de abrirlo por primera vez, donde revisa el sistema si ya se ha introducido el valor en dailycashBox...
2.- Tenia el Form de "Apertura de Caja" como principal, debo establecer el "Form1" como principal con esta funcion? (Project>>options>>forms)