SetSystemTime
在 Uses部 分 加 上 WinDos单 元 ( 不 是 Windows单 元 ) 。 这 样 你 就 可 以 使 用 SetTime和 SetDate函 数 , 这 两 个 函 数 是 以 前 Turbo Pascal的 标 准 函 数 。 如 果 你 没 有 用 过 Turbo Pascal, 可 以 在 Delphi\source\rtl70目 录 中 找 到 windos.pas, 在 其 中 有 该 函 数 的 定 义
在 Uses部 分 加 上 WinDos单 元 ( 不 是 Windows单 元 ) 。 这 样 你 就 可 以 使 用 SetTime和 SetDate函 数 , 这 两 个 函 数 是 以 前 Turbo Pascal的 标 准 函 数 。 如 果 你 没 有 用 过 Turbo Pascal, 可 以 在 Delphi\source\rtl70目 录 中 找 到 windos.pas, 在 其 中 有 该 函 数 的 定 义
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货