06-04-2008, 07:02 PM
بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله و بركاته
الكود يقوم بتغيير الوقت و التاريخ للنظام
السلام عليكم و رحمة الله و بركاته
الكود يقوم بتغيير الوقت و التاريخ للنظام
كود :
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.