如何实现一运行程序后本地机的时间就和服务器一样？

Question

如果后台是大型数据库，
那可以通过SQL取后台时间即可
如SYBASECREATE PROCEDURE proc_getdate(@nowdate datetime output)     
/*取后台时间*/
/*日期：20001212*/
AS      
  BEGIN    
    SELECT @nowdate=getdate()
    return 
  END

Answer 1

这个是命令行方法:net time \\服务器名 /set [/yes...]
在ＤＯＳ提示符下:net time /?有更详细的帮助
不知是不是你想要的

Answer 2

若是后台数据库，取服务器时间，设置为本机器时间
Api: //98下直接调用即可        
  SetLocalTime( sysTime );
//2000下，要取得权限才行
具体参照以下：
function mscAdjustToken: Boolean;
var
   hToken: THandle;
   hProcess: THandle;
   int64LpUid: int64;
   tkp, tkpNew: TOKEN_PRIVILEGES;
   dwSize: DWORD;
begin
   result := False;
   hProcess := GetCurrentProcess;
   if hProcess = 0 then
      Exit;
   if OpenProcessToken( hProcess,
                        TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken ) then
   begin
      LookupPrivilegeValue( '', 'SeSystemTimeNamePrivilege', int64LpUid );
      tkp.PrivilegeCount := 1;
      tkp.Privileges[0].Luid := int64LpUid;
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;      AdjustTokenPrivileges( hToken, False, tkp,
                             sizeof( tkp ), tkpNew, dwSize );
      if GetLastError = 0 then
         result := True;
   end;
end;