Se me adelantó
Dec, pero iba a sugerirte lo mismo:
Código Delphi
[-]
uses
IniFiles;
procedure TForm1.FormCreate(Sender: TObject);
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create('MiArchivo.ini');
try
if Date < IniFile.ReadDateTime('General', 'Fecha', Date) then
raise Exception.Create('Lalalalala');
finally
IniFile.Free;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create('MiArchivo.ini');
try
IniFile.WriteDateTime('General', 'Fecha', Date);
finally
IniFile.Free;
end;
end;
Saludos!