oReg := TReg32():Create( HKEY_CURRENT_USER, "Control Panel\Desktop\WindowMetrics" ) // scrollbars
I := 0
oReg:Get( "ScrollHeight", @I )
IF I # 0
oReg:Set( "ScrollHeight", DVAL )
oReg:Set( "ScrollWidth", DVAL )
oReg:Close()
ENDIF
Maybe you could translate it for my in FHW?Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment]
"STCUNR"="53"
"STCURA"="Name1"
"STJUDA"="Name2"
oReg := TReg32():Create( HKEY_LOCAL_MACHINE, "ControlSet001\Control\Session Manager\Environment" )
oReg:Set( "STCUNR", "53")
oReg:Set( "STCURA", "name1" )
oReg:Set( "STJUDA", "name2" )
oReg:Close()
#define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002
#DEFINE HKEY_CURRENT_USER 2147483649 // 0x80000002
......
IF RegRet
oReg := TReg32():Create( HKEY_CURRENT_USER,"Environment")
IF UPPER(cPar) = "J"
IF !EMPTY(cNAAM) ; oReg:Set("STJUDA",cNAAM) ; ENDIF
ELSE
IF !EMPTY(cNAAM) ; oReg:Set("STCURA",cNAAM) ; ENDIF
IF !EMPTY(cNR ) ; oReg:Set("STCUNR",cNR ) ; ENDIF
ENDIF
oReg:Close()
ENDIF
FUNCTION SETTAREG( cDir , cFile , cAutoSave )
LOCAL oReg
oReg:=TReg32():New( HKEY_CURRENT_USER , "SOFTWARE\PDFCreator\Program" )
oReg:Set( "UseAutosave" , cAutoSave )
oReg:Set( "UseAutosaveDirectory" , cAutoSave )
oReg:Set( "AutosaveDirectory" , UPPER( cDir ) )
oReg:Set( "AutosaveFilename" , UPPER( cFile ) )
oReg:Close()
RETURN .T.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 36 guests