FiveTech Software tech support forums

hi, sorry ... have "forgot" this Thread have SET set bcdir=c:\bcc7set FWDIR=c:\fwhset fwh=c:\fwhset GT=gtguiset HBDIR=c:\harbourset hdir=c:\harbourset hdirl=c:\harbour\lib\win\bcc and Call build.bat olebrow and got Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologie...

This is a sample for REGQUERYVALUE: 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" ...

... @hKey ) // RegDeleteKey( hKey, "CdCache" ) RegSetValue(hKey,"CdCache","0") MsgInfo( RegQueryValue( hKey,"CdCache" ) ) RegCloseKey( hKey ) return nil the function RegSetValue(hKey,"CdCache","0") NOT RUN ...

Roberto,

Has probado a leer el valor una vez modificado ?

RegOpenKey(HKEY_CURRENT_USER,"Software\Microsoft\Notepad",@hKey)
RegSetValue(hKey,"lfFaceName","Courier New")

MsgInfo( RegQueryValue( hKey,"lfFaceName" ) )

RegCloseKey(hKey)

Hello Antonio,
thank you. I have admin rights.
RegEnumValue reports all the values fine but
RegQueryValue( hKey, "ScrollHeight" , @uValue )
returns "Ff".
Best regards,
Otto

Hello Antonio, I tried to get/set the values with a FW program. But RegSetValue( hKey, "ScrollHeightn" ,-500 ) RegQueryValue( hKey, "ScrollHeight" , @uValue ) in my case does not work. RegEnumValue is working fine. Do you know a solution. Best regards, Otto #define ...

... LOCAL nHandle LOCAL cValue LOCAL dFecUltActu if RegOpenKey( HKEY_CURRENT_USER, "SOFTWARE\MySoft", @nHandle ) == 0 dFecUltActu := cToD( RegQueryValue( nHandle, "F.Ul.Actualizacion" , @cValue )) RegCloseKey( nHandle ) endif Return NIL function WriteRegistry() LOCAL nHandle LOCAL ...

... Main() local nHandle, cValue if RegOpenKey( HKEY_LOCAL_MACHINE,; "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",; @nHandle ) == 0 RegQueryValue( nHandle, "IEXPLORE.EXE", @cValue ) MsgInfo( cValue ) RegCloseKey( nHandle ) endif return nil //-------------------------------------------------------------// ...

... ReadVar() RealizePalette() Rectangle() RectDotted() Recv() RegCloseKey() RegCreateKey() RegDeleteKey() RegEnumKey() RegisterClass() RegOpenKey() RegQueryValue() RegSetValue() ReleaseCapture() ReleaseDC() RemoveMenu() RemoveProp() Report() ResetDC() ResourceFree() RestoreDC() RestProc() RLNew() ...

... cValue:="" if RegOpenKey( HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths", @nHandle ) == 0 RegQueryValue( nHandle, cFile, @cValue ) RegCloseKey( nHandle ) msginfo(cValue) cValue:=ansitooem(cValue) cValue:=alltrim(cValue) cValue:=substr(cvalue,1,len(cvalue)-1) ...

The search function exclude the code tags!

For me it is a disadvantage.

Example: Searching 'RegQueryValue'. This topic viewtopic.php?f=3&t=13879 isn't in the matches!

Como has inspeccionado ese valor del registro ? Con RegQueryValue() ? Con el Resco Registry . Prueba este codigo: #include "fwce.ch"function Main()   MsgInfo( ValType( CreateObject( "4E130E40-7DBE-11D2-8F23-0000F87A4335" ...

... hDll );   }      hb_retnl( lReturn );}         #pragma ENDDUMP  Como has inspeccionado ese valor del registro ? Con RegQueryValue() ?

... worked out how to get the path if RegOpenKey( HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths", @nHandle ) == 0 RegQueryValue( nHandle, "ACRORD32.EXE", @cFilePath ) RegCloseKey( nHandle ) endif if ! empty(cFilePath) if MsgYesNo('Save ' + cFilePath + ...

... cVar1, cVar2 // Find the registry values for an address book cExt:=if(left(cExt,1)!=".","."+cExt,cExt) RegOpenkey(HKEY_CLASSES_ROOT,"",@nHandler) RegQueryValue(nHandler,cExt,@cVar1) RegCloseKey(nHandler) RegOpenKey(HKEY_CLASSES_ROOT,cVar1,@nHandler) RegQueryValue(nHandler,"DefaultIcon",@cVar2) ...