استرجاع تاريخ اخر مرة قمت باستعمال البرنامج

[manoubi77]

السلام عليكم ورحمة الله وبركاته
:bye1:
كيف يمكنني عند اعادة فتح البرنامج يقوم بوضع تاريخ اخر مرة
قمت باستعماله في "label" مثل منتدانا

كود :

أهلا وسهلا بكـ manoubi77. آخر زيارة لك كانت: اليوم الساعة 07:09 PM

.
و ان امكن على الاقل في هذا الشكل02/06/2010
و شكرا

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
احفظ التاريخ عند مغادرة البرنامج في ملف، ثم اقرأه عند بداية التشغيل، مثال:

PHP كود :

uses
  IniFiles;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('Config.ini');
  try
    Ini.WriteString('General', 'LastVisit', DateToStr(Now));
  finally
    Ini.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('Config.ini');
  try
    Label1.Caption := Ini.ReadString('General', 'LastVisit', '');
  finally
    Ini.Free;
  end;
end; 


بالتوفيق.