Winapi: getlocaltime, setlocaltime, and setsystemtime-Get and set the system time

// Declare getlocaltime (VAR lpsystemtime: tsystemtime {tsystemtime structure}); {No return value} // set the local time setlocaltime (const lpsystemtime: tsystemtime {tsystemtime structure}): bool; // setsystemtime is set to the Greenwich Mean Time setsystemtime (const lpsystemtime: tsystemtime {tsystemtime structure}): bool; // tsystemtime is the definition of the _ systemtime structure: _ systemtime = record wyear: word; {year} wmonth: word; {month} wdayofweek: word; {week} wday: word; {day} whour: word; {hour} wminute: word; {minute} wsecond: word; {second} wmilliseconds: word; {millisecond} end;
  
   
 // Example: Procedure tform1.formcreate (Sender: tobject); var T: tsystemtime; begin getsystemtime (t); memo1.clear; with memo1.lines do begin add (format ('year: % d ', [T. wyear]); add (format ('month: % d', [T. wmonth]); add (format ('Week: % d', [T. wdayofweek]); add (format ('day: % d', [T. wday]); add (format ('hour: % d', [T. whour]); add (format ('minute: % d', [T. wminute]); add (format ('Seconds: % d', [T. wsecond]); add (format ('millisecond: % d', [T. wmilliseconds]); end;
  
   
 //: