Ver Mensaje Individual
  #3  
Antiguo 09-12-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita