如何在delphi中从另一个窗口更改日期/时间值？

Question

我有一个(H: HWND)框的句柄datetimepicker，它位于另一个窗口/应用程序中。我想更改dt: TDateTime和H的日期时间（dt）值。 我可以帮忙吗？感谢

Answer 1

独自完成比

更好

procedure ChangeOutsideDateTime(h: HWND; dt: TDateTime);
var
  st: TSystemTime;
begin
  st.wYear:= YearOf(dt);
  st.wMonth:= MonthOf(dt);
  st.wDay:= DayOf(dt);
  st.wHour:= HourOf(dt);
  st.wMinute:= MinuteOf(dt);
  st.wSecond:= SecondOf(dt);
  st.wMilliseconds:= MilliSecondOf(dt);
  SendMessage(h, DTM_SETSYSTEMTIME, GDT_VALID, integer(@st));
end;