+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استرجاع تاريخ اخر مرة قمت باستعمال البرنامج (/showthread.php?tid=2069)
استرجاع تاريخ اخر مرة قمت باستعمال البرنامج - manoubi77 - 02-06-2010
السلام عليكم ورحمة الله وبركاته
:bye1:
كيف يمكنني عند اعادة فتح البرنامج يقوم بوضع تاريخ اخر مرة
قمت باستعماله في "label" مثل منتدانا
كود :
أهلا وسهلا بكـ manoubi77.
آخر زيارة لك كانت: اليوم الساعة 07:09 PMو ان امكن على الاقل في هذا الشكل02/06/2010
و شكرا
استرجاع تاريخ اخر مرة قمت باستعمال البرنامج - kachwahed - 03-06-2010
وعليكم السلام ورحمة الله وبركاته
احفظ التاريخ عند مغادرة البرنامج في ملف، ثم اقرأه عند بداية التشغيل، مثال:
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;