Sistemin Tarih ve Saatine Müdahele Etmek

[AReS]

Arkadaşlar benim sistemin saatine müdahele etmem gerekli. Ağdaki bir bilgisayarın tarihine göre benim pc nin de saatini otomatik ayarlamak istiyorum. Ağdaki pc nin saatini alıyorum ama kendi sistemimin tarih ve saatine müdahele etmem için hangi apileri kullanmam gerekli bilgisi olan arkadaşlar yardımcı olursanız sevinirim. Hepinize kolay gelsin iyi çalışmalar

[naile]

Bunu windowsun kendisi ile yapılabiliyor diye biliyorum, eğer illa kendi yazdığınız programla yapmanız şart değilse bence bu mevcut özelliği kullanmanız daha kolay ve sağlıklı bir çözüm olur.

[AReS]

Merhaba Maalesef Proğramdan müdahele etmek zorundayım.
850 Adet Pc nin aynı Tarih saat ve saniye sistemiyle çalışması gerekli. Veya Benim Yeniden Dönüp Bütün projedeki kodlarda oynama yapmam gerekli.

[hdayi]

Froma bir TIdTime nesnesi koy. Host propertisine time serverının ip adresini yaz. (IP adresinin ilerde değişebileceiğini göz önünde bulundurup bun run-time'da değişebilecek şekilde tasarlarsan iyi olur).

Kod: Tümünü seç

var
    systime: TSystemTime;
begin
    DateTimeToSystemTime(IdTime1.DateTime, systime);
    SetLocalTime(systime);
end;

Kolay Gelsin...

[AReS]

Kod: Tümünü seç

var
Zaman: TSystemTime;
yil,ay,gun,saat,dakika,saniye,salise : word;
begin

   DecodeDate(GelenTar,yil,ay,gun);
   DecodeTime(Gelentar,saat,dakika,saniye,salise);
   ReplaceDate(gelentar, strtodate(inttostr(gun)+'.'+inttostr(ay)+'.'+inttostr(yil)));
       ReplaceTime(gelentar,strtotime(inttostr(saat)+':'+inttostr(dakika)+':'+inttostr(saniye)));
      DateTimeToSystemTime(Gelentar, Zaman);
      SetLocalTime(Zaman);

      Showmessage(DatetimeToStr(SystemTimeToDateTime(Zaman)));
end;

Boyle yapıca sanırım olcak 2. pc bu saatte bulunamayacagından denemedim.[/code]