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)

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

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.

Marco,

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

James

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

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

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