Delphi 修改本地日期和时间

procedure TForm1.ModifySysdate(D: Double);
var
 systemtime:Tsystemtime;
  DateTime:TDateTime;
begin
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy:MM:dd');
Application.UpdateFormatSettings := False;
DateTime:=Now+d;
DateTimeToSystemTime(DateTime,systemtime);
SetLocalTime(systemtime);

end;

Windows 64位系统 需要提升权限 ＵＡＣ

方法如下：

１创建以下代码到uac.manifes文件类。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator" uiAccess="false">
</requestedExecutionLevel>
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*">
</assemblyIdentity>
</dependentAssembly>
</dependency>
</assembly>  

２.在工程的Options选项－－Application-manifes 选择Custom  选择uac.manifes 即可。（D10.1版本）

如果需要调试的话，需要使用管理员权限启动Delphi