| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #3562 [Delphi] (จาก IP: 210.4.156.224)
เขียน Delphi ให้ตั้งเวลาให้เครื่อง Computer OS Windows7 ได้ไหมคับ
คือว่า ผมเขียน Get เวลามาจากเครื่องอีกเครื่องหนึ่งแล้วต้องการจะตั้งเวลาเครื่องที่รันโปรแกรมไว้ให้ตรงกับเครื่องที่ Get เวลามา ตอนนี้ผมได้แค่ Get เวลามาจากเครื่องอื่น แต่ยังหาวิธีตั้งเวลาให้เครื่องไม่ได้ รบกวนด้วยคับ
|
| จากคุณ
:
Jiiw [2015-08-03 15:12:10]
|
|
ความคิดเห็น #29250 (จาก IP: 110.168.232.82)
น่าจะประมาณนี้ ลองดู
procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
.
.
.
var
NewDateTime: TSystemTime;
begin
FillChar(NewDateTime, SizeOf(NewDateTime), #0);
NewDateTime.wYear := Year;
NewDateTime.wMonth := Month;
NewDateTime.wDay := Day;
NewDateTime.wHour := Hour;
NewDateTime.wMinute := Minu;
NewDateTime.wSecond := Sec;
NewDateTime.wMilliseconds := MSec;
SetLocalTime(NewDateTime);
end; |
| จากคุณ
:
maddog [2015-08-03 23:39:30]
|
|
ความคิดเห็น #29251 (จาก IP: 210.4.156.224)
ขอบคุณคับ ได้แล้วว..
ผมใช้ TSystemTime
var
sDateTime : TSystemtime;
nTime, nDate : String;
begin
nDate := FORMATDATETIME('dd/mm/yyyy', GettimeFunction);
nTime := FORMATDATETIME('hh:nn:ss', GettimeFunction);
DATETIMETOSYSTEMTIME(STRTODATE(nDate)+STRTODATE(nTime), sDateTime);
SETLOCALTIME(sDateTime);
end; |
| จากคุณ
:
Jiiw [2015-08-04 09:05:25]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
