تغيير وقت و تاريخ النظام
#1
بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله و بركاته
الكود يقوم بتغيير الوقت و التاريخ للنظام
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '12:00:00';
  NewDate := '01/01/2010';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);



end;

end.
الرد
#2
السلام عليكم
عدلت الكود ليستطيع المستعمل ادخال معطيات
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := edit1.Text;
  NewDate := edit2.text;
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);





end;
الرد
#3
الكود سورس


الملفات المرفقة
.rar   timedate.rar (الحجم : 2.84 KB / التحميلات : 96)
الرد
#4
عندي سؤال اي الاوامر افضل للمعالج

1- ننسب محتوايات الايدت لمتحول
2- مانستخدم متحولات ابدا بما انه تعليمة صغيرة نسبيا

وايها افضل مثلا لوتوفر عدد كبير من الايدت

ام لايوجد فرق
الرد
#5
لا شكر على واجب
snyper كتب :عندي سؤال اي الاوامر افضل للمعالج

1- ننسب محتوايات الايدت لمتحول
2- مانستخدم متحولات ابدا بما انه تعليمة صغيرة نسبيا

وايها افضل مثلا لوتوفر عدد كبير من الايدت

ام لايوجد فرق

على ما أضن أنّه لا يوجد فرق
لكن لا تحكم على صغر الحجم
فربّما كود 5 اسطر يكون اسرع من كود سطر واحد والله أعلم
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف