Материал из DRKB
WinExec('net time \\nts2 /set /yes', SW_HIDE);
Source: http://delphiworld.narod.ru ID: 03306