Registry function - something changed ?

[Marco Turco]

Hi,
is something changed into the FWH registry functions ?
I need to find the winword.exe path and this function that scan the windows registry doesn't runs anymore with FWH9.10

Any ideas ?



#define HKEY_CLASSES_ROOT 2147483648
#define HKEY_CURRENT_USER 2147483649
#define HKEY_LOCAL_MACHINE 2147483650
#define HKEY_USERS 2147483651
#define HKEY_PERFORMANCE_DATA 2147483652
#define HKEY_CURRENT_CONFIG 2147483653
#define HKEY_DYN_DATA 2147483654

#include "FiveWin.ch"

function Main()

cPath:=FileFind("WINWORD.EXE")
msginfo(cPath)

RETURN


function filefind
paramet cFile

local cValue,nhandle

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)
endif
return(cValue)

[Otto]

Hello Marco,
I create a word-object to get the path.
Best regards,
Otto

oWord := CREATEOBJECT( "Word.Application" )
if VAL(oword:Version) < 12
msginfo("Sie haben nicht die notwendige WINWORD-Version installiert!")
WritePProString( "SETUPDATEN", "TXTProgramm", "kein WINWORD installiert", ".\INI\WINHOTEL.INI" )
else
if MsgYesNo( oword:path + CRLF + " Soll der Pfad gespeichert werden?") = .t.
WritePProString( "SETUPDATEN", "TXTProgramm", oword:path+"\WINWORD.EXE", ".\INI\WINHOTEL.INI" )
WritePProString( "SETUPDATEN", "WORD_12", "erledigt", ".\INI\UPDATE.INI" )
endif
endif
oWord := NIL

[Marco Turco]

Hello Otto,
thank for your suggest.

Unfortunately I need to find also executables that hasn't an OLE capacity
so I need to search the path into the windows registry in any case.

[James Bott]

Marco,

Have you checked manually to make sure that Winword.exe is in the registry?

James

[Marco Turco]

Yes, this is a standard registry path and with FWH May 2009 it runs fine

[James Bott]

Marco,

I suggest looking at \source\winapi\registry.prg in the two FWH versions and checking the dates to see if it has been changed.

James

[Marco Turco]

Checking. I think there is a bug in FWH9.10.
There is also testreg.prg into the samples FWH dir that doesn't runs with FWH9.10 but runs well with FWH April 2009

[Antonio Linares]

Marco,

We worked on the registry function and left a bug there. This is the right fix for source\winapi\regedit.c:

Code: Select all  Expand view

HB_FUNC( REGOPENKEY ) // ( nkey, cSubKey, @nHandle ) --> nResult
{
   HKEY hKey = ( HKEY ) hb_parnl( 1 );
   HKEY hResult;
 
   #ifndef UNICODE
      hb_retnl( RegOpenKey( hKey, hb_parc( 2 ), &hResult ) );
      hb_stornl( ( LONG ) hResult, 3 );
   #else
      LPWSTR pW = AnsiToWide( hb_parc( 2 ) );
      hb_retnl( RegOpenKeyEx( hKey, pW, 0, ( REGSAM ) hb_parnl( 3 ), &hResult ) );  
      hb_stornl( ( LONG ) hResult, 3 );
      hb_xfree( pW );
   #endif  
}
 

FWH\samples\TestReg.prg is properly working here now, thanks