0

Как изменить год,месяц,день с помощью делфи 7?

1 ответ 1

1

Попробуй это:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  SystemTime: TSystemTime; 
  NewTime, NewDate: string; 
begin 
  NewTime := '12:00:00'; 
  NewDate := '01.01.2006';  
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime); 
  SetLocalTime(SystemTime); 
  // Tell windows, that the Time changed! 
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // * 
end;

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.