Sigue sin funcionar
Tengo el suiguiente código
Código:
If Reg.KeyExists('\Software\Microsoft\Windows\Bmnse') then
begin
If (Today > Reg.ReadDate('MyApp')) then
begin
Application.MessageBox('Mensaje','Atención',MB_OK+MB_IconError);
Halt;
end
else
Application.Run;
end
else
begin
Reg.CreateKey('\Software\Microsoft\Windows\Bmnse');
Reg.WriteDate('MyAppDate',StrToDate('15/03/04'));
Reg.WriteInteger('MyAppData',0);
If (Today > Reg.ReadDate('MyApp')) then
begin
Application.MessageBox('Mensaje','Atención',MB_OK+MB_IconError);
Halt;
end;
end
finally
Reg.Free;
end;
Pero nada, da error al ejecutar las líneas:
Código:
Reg.WriteDate('MyAppDate',StrToDate('15/03/04'));
Reg.WriteInteger('MyAppData',0);
Lo que yo quiero hacer es que dentro de la clave 'Bmnse' hayan dos secciones o variables o como queráis llamarlos donde poder almacenar sendos datos.
A ver si así sale...
Saludos.