• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 3.75 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: تغییر تاریخ سیستم
حالت خطی
#1
از این تابع برای تغییر تاریخ سیستم استفاده کنید
کد:
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;
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
تغییر تاریخ سیستم - توسط Amin_Mansouri - 08-01-2011، 07:41 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 5,131 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 5,263 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri
  تب سیستم در دلفی Amir AMS 0 4,958 06-11-2013، 08:21 PM
آخرین ارسال: Amir AMS
  سورس کد بدست اوردن حافظه استفاده شده در سیستم عامل(دلفی) Amin_Mansouri 0 4,261 05-01-2013، 07:44 AM
آخرین ارسال: Amin_Mansouri
  دانلود سورس تغییر عکس پس زمینه ویندوز به زبان دلفی hpnz 2 6,644 04-22-2013، 07:46 PM
آخرین ارسال: Amin_Mansouri
  یونیت تغییر ایکون دلفی Amin_Mansouri 0 3,444 10-17-2011، 08:34 PM
آخرین ارسال: Amin_Mansouri
  نام سیستم Amin_Mansouri 0 2,452 08-01-2011، 07:44 PM
آخرین ارسال: Amin_Mansouri
  تغییر ساعت سیستم Amin_Mansouri 0 2,822 08-01-2011، 07:42 PM
آخرین ارسال: Amin_Mansouri
  دایرکتوری سیستم عامل Amin_Mansouri 0 2,379 08-01-2011، 07:40 PM
آخرین ارسال: Amin_Mansouri
  تغییر نام فایل و پوشه در دلفی Amin_Mansouri 0 4,711 07-10-2011، 09:40 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 2 مهمان