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...

Que otras claves hay en HKCURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\SessionDefaultDevices ? Puedes obtenerlas todas usando RegEnumKey(). Aqui tienes un ejemplo de uso: // Retrieving all printers info from the registry#define  HKEY_LOCAL_MACHINE      2147483650function ...

funcionando .
Al final la funcion a usar era REGENUMValue .
Gracias.

pd. Estaría bien añadir un metodo a la clase Treg32().

algo como :
METHOD GetNumValue( nIndex, cRefValue ) INLINE RegNumValue( ::nHandle, nindex-1 , cRefValue )

...        "System\CurrentControlSet\Control\Print\Printers", @nHandle ) == 0      while RegEnumKey( nHandle, n++, @cValue ) == 0         MsgInfo( cValue )      end      ...

Necesito recorrer todas las subkeys de un clave de registro , pero parece que la funcion REGENUMKEY no funciona como debe o yo no entiendo su funcionamiento .
La clase treg32 no contiene nada de codigo para esta funcion y el ejemplo testreg2 pare no funcionar ...

* Fix: functions ReGetCharFormat() and RegGetSelection() incorrectly used hb_storvnl() instead of hb_stornl() * Fix: functions RegEnumKey() and RegEnumValue() incorrectly used hb_storvc() and hb_storvnl() instead of hb_storc() and hb_stornl() * Fix: functions RegQueryValueEx() and RegCreateKey() ...

... RddEvent() ReadBitmap() ReadComm() ReadVar() RealizePalette() Rectangle() RectDotted() Recv() RegCloseKey() RegCreateKey() RegDeleteKey() RegEnumKey() RegisterClass() RegOpenKey() RegQueryValue() RegSetValue() ReleaseCapture() ReleaseDC() RemoveMenu() RemoveProp() Report() ResetDC() ResourceFree() ...

Anserkk, I have tried today and it's ok here with XP Pro SP2. I suspect the RegOpenKey() or RegEnumKey() be the cause of this. I look to solve it now. ********** VERY IMPORTANT ************** These functions assume than SET EXACT is ON. If NOT : Put this at the START ...

... error: Macro redefinition of 'WinHelp'. D:\COMPILER\xHB\c_include\win\winreg.h(211): error: Macro redefinition of 'RegEnumKey'. D:\COMPILER\xHB\c_include\win\winreg.h(215): error: Macro redefinition of 'RegOpenKey'. D:\COMPILER\xHB\c_include\win\lzexpand.h(37): error: ...

... := "System\CurrentControlSet\Control\Print\Printers" IF RegOpenKey( aHKey, cSubKeys, @nHandle ) == 0 n1 := 0 DO WHILE .T. cValue := "" n2 := RegEnumKey( nHandle, n1, @cvalue ) IF n2 = 0 IF ASCAN(TIMP, STRTRAN(cValue, "," , "\")) = 0 AADD(TIMP, STRTRAN(cValue, "," , "\")) ENDIF ELSE EXIT ENDIF ...

Antonio Linares wrote:Joao,

Change REGENUMKEYS() into REGENUMKEY()

Gracias Atonio, Perfecto.

Joao,

Change REGENUMKEYS() into REGENUMKEY()

... string then read it back for display and it shows up on the emulator as well as an Intermec 700 (where I can examine the registry independently). RegEnumKey operates OK. BTW - the Forum seems more focused and business-like, thanks. hth regards