BOOL SetSystemTime(
CONST SYSTEMTIME *lpSystemTime // address of system time to set
);
을 이용하시면 됩니다.
typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
SetLocalTime를 써보세요.
procedure TForm1.Button1Click(Sender: TObject);
var
lpSystemTime: TSystemTime;
begin
GetLocalTime(lpSystemTime);
lpSystemTime.wHour := 13;
lpSystemTime.wMinute := 8;
SetLocalTime(lpSystemTime);
end;