FiveTech Support Forums

#include "fivewin.ch"
#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002

// This is the value we want
//"HKEY_LOCAL_MACHINE\System\CurrentControlSet\" &_
//        "Control\TimeZoneInformation\ActiveTimeBias"

function main()

  msgInfo( len( getUTCTimeOffset() ) )

return nil


// Purpose: To read the UTC (GMT) time offset from the registry
function getUTCTimeOffset()

   local nHandle, nValue

   if RegOpenKey( HKEY_LOCAL_MACHINE,;
      "System\CurrentControlSet\Control\TimeZoneInformation",;
      @nHandle ) == 0

      RegQueryValue( nHandle, "ActiveTimeBias", @nValue )

      RegCloseKey( nHandle )

   endif

return nValue

#include "Fivewin.ch"


#define HKEY_LOCAL_MACHINE 2147483650

#define REG_DWORD 4

#define KEY_ALL_ACCESS 983103


FUNCTION MAIN()

    LOCAL hKey := 0

    LOCAL nType := REG_DWORD

    LOCAL cData := SPACE( 256 )

    LOCAL nSize := LEN( cData )

    LOCAL nData

    REGOPENKEY( HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Control\TimeZoneInformation", 0, KEY_ALL_ACCESS, @hKey )

    REGQUERYVALUE( hKey, "ActiveTimeBias", 0, @nType, @cData, @nSize )

    REGCLOSEKEY( hKey )

    nData = BIN2L( cData )

    ? nData

    RETURN NIL


DLL32 FUNCTION REGOPENKEY( hKey AS LONG, cSubKey AS LPSTR, nOptions AS DWORD, nSamDesired AS DWORD, @nHandle AS PTR ) AS LONG;
      PASCAL FROM "RegOpenKeyExA" LIB "advapi32.dll"

DLL32 FUNCTION REGQUERYVALUE( hKey AS LONG, cValueName AS LPSTR, nReserved AS LONG, @nType AS PTR, @cData AS LPSTR, @nSize AS PTR ) AS LONG;
      PASCAL FROM "RegQueryValueExA" LIB "advapi32.dll"

DLL32 FUNCTION REGCLOSEKEY( hKey AS LONG ) AS LONG;
      PASCAL FROM "RegCloseKey" LIB "advapi32.dll"

//------------------
FUNCTION TimeZone()
   Local oReg, nRetVal
   oReg := TReg32():New(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\TimeZoneInformation", .f. )
   nRetVal := oReg:Get( "ActiveTimeBias", 0 )
   oReg:Close()
   nRetVal := Round( nRetVal / 60, 0 )
Return nRetVal
//--------------
FUNCTION Gmt()
   LOCAL cGmt:=Time()
   cGmt:=Str(Val(SubStr(cGmt,1,2))+TimeZone(),2)+SubStr(cGmt,3)
RETURN cGmt