بدست آوردن زمان

[ayat255]

بدست آوردن زمان البته به زمان گرینویچ نه ایران(دنبال روش جمع و کم کردن هم نیستم چو ممکنه یک سیستم در حال اجرای برنامه زمانش رو ایران تنظیم نباشه)

[ayat255]

دوستان خودم پیدا کردم
میزارم اینجا شاید به درد دوستان بخوره

procedure TForm1.Button1Click(Sender: TObject);
var
UTC:SYSTEMTIME;
begin
GetSystemTime(UTC);
Label1.Caption:=IntToStr(UTC.wHour)+':'+IntToStr(U TC.wMinute)+':'+IntToStr(UTC.wSecond);

end;