-
تغيير تاريخ سيستم
تغيير تاريخ سيستم
کد:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
FechaDelSistema( StrToDate('2006/10/09') );
end;
end.
-
خوب خسته شدیما. دوستان فعلا دیگه تموم شد. تا بعدا فکر کنم حدود 115 تاپیک شده باشه.
ببینم خستگی منو چه جوری جبران می کنین.
-
خيلي حال دادي
نفست طلا داداش
-
تشکر فراوان
با سلام خدمت شما تکنیک برتر عزیز
خیلی خیلی ممنون واسه این کدها خیلی حال دادی ایشاالله همیشه مغزت پر از دلفی!
بازم ممنون خصوصاً واسه اطلاعات cpu.
بابا تو دیگه آخری دلفی هستی. روی همه رو کم کردی.
به امید دیدار.
-
ممنون از زحمات شما در اين بخش.
هميشه خوش و موفق باشي.
-
خواهش می کنم دوستان عزیز و عرجمند .
امیدوارم که بتوانم رضایت تمامی دوستان را جلب کنم
-
-
-
بابا واقعاً عالیه
دست درد نکنه
به امید پیروزی و بهروزی برای شما
خدا نگهدار
-
واقعاً دستتون درد نکنه
به امید پیروزی و بهروزی روزافزون شما
اما خیلی باحاله
خدانگهدار
