+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: تغییر تاریخ سیستم (/showthread.php?tid=586)
تغییر تاریخ سیستم - Amin_Mansouri - 08-01-2011
از این تابع برای تغییر تاریخ سیستم استفاده کنید
کد:
procedure TForm1.Button1Click(Sender: TObject);
procedure FechaDelSistema(Fecha: TDateTime);
var
FecSys: TSystemTime;
nA, nM, nD: Word;
begin
DecodeDate(Fecha, nA,nM,nD);
GetLocalTime(FecSys);
FecSys.wYear := nA;
FecSys.wMonth := nM;
FecSys.wDay := nD;
SetLocalTime(FecSys);
end;
begin
FechaDelSistema( StrToDate('23/08/2002') );
end;