var
    SysTime: TsystemTime;
    shour: integer;
    smin: integer;
GetSystemTime(SysTime);
shour:= systime.wHour;
smin:=  systime.wMinute;//调试的时候,发现我当前系统时间是23:30,shour却为15,这个是为何呢?
//smin也是30,对的

解决方案 »

  1.   

    var
    vtime:Tdatetime;
    begin
    vtime:=now();
    多省事﹐
      

  2.   

    date()//当前日期
    now()//当前时间
      

  3.   

    var 
      rq:tsystemtime;
    begin
      getsystemtime(rq);
      edit1.text:=inttostr(rq.whour)+':'+inttostr(rq.wminute)+':'inttostr(rq.wsecond);
    end;
      

  4.   

    WinXP pro SP2系统会有这个问题?
      

  5.   

    getsystemtime返回的是utc时间
    getlocaltime返回本地时间碰到问题应该先看API的帮助
      

  6.   

    这个是格林尼治时间,相差8小时,你可以直接用SOCKET取得该时间,比如
    从这个'tick.usno.navy.mil'-美国海军天文台来取,得到的时间必须+8mod24才能得到你正确时间