Zmiana czasu systemowego

Aby po kliknięciu przycisku Button1 zmienić czas systemu:

Unit1.cpp

#include <dos.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   struct time t;
   t.ti_hund = 0;
   t.ti_sec = 0;
   t.ti_min = 12;
   t.ti_hour = 15;
   settime(&t);
}