Gönderen Konu: Saat ve tarih bilgisini ayarlamak  (Okunma sayısı 342 defa)

Çevrimdışı Zoroaster

  • Emektar
  • *****
  • İleti: 931
Saat ve tarih bilgisini ayarlamak
« : 05 Mayıs 2017, 08:26:22 »
Delphi kodlarla integer tipindeki Saat, dakika, gün ve ay bilgileri ile PC saatini ve tarihi ayarlamak istiyorum.

Nasıl yaparım?

Çevrimdışı sovalye

  • Kıdemli
  • ****
  • İleti: 298

Çevrimdışı Salih

  • Profesyonel Üye
  • *****
  • İleti: 1421
Ynt: Saat ve tarih bilgisini ayarlamak
« Yanıtla #2 : 06 Mayıs 2017, 07:23:09 »
Şu kodlar işini görür herhalde.

Kod: [Seç]

procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);


In the 'implementation' you write...:

{ SetDateTime sets the date and time of the operating system }


 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;

« Son Düzenleme: 06 Mayıs 2017, 07:24:40 Gönderen: Salih »