Paulo,
Try this:
#include "WinReg.api"
With Object TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
if :OpenKey( "SOFTWAREMicrosoftWindowsCurrentVersionApp
PathsIEXPLORE.EXE" ) == 0
cDir := :GetString( "" )
:CloseKey()
endif
End With
Regards,
"Paulo Jorge M. Félix" <
pjmfelix@sisbit.pt> escribió en el mensaje
news:4458d721$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
> Hi, Ignacio i want pass this function that i have in FW to Xailer, to
> retreive the path of IExplorer.Exe.
>
>
> FW Sample :
>
> Local nHandle,cValue := ""
>
> If
> RegOpenKey(HKEY_LOCAL_MACHINE,"SOFTWAREMicrosoftWindowsCurrentVersionApp
> Paths",@nHandle) == 0
> RegQueryValue(nHandle,"IExplore.Exe",@cValue)
> cValue := lfn2sfn(cValue)
> RegCloseKey(nHandle)
> EndIf
>
>
> Xailer Sample:
>
> Local oWinReg
>
> WITH OBJECT oWinReg := TRegistry():New()
> :Root := HKEY_LOCAL_MACHINE
> :OpenKey("SOFTWAREMicrosoftWindowsCurrentVersionApp Paths")
> :GetString("IExplore.Exe")
> :CloseKey()
> :End()
> END WITH
>
> Regards.
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escreveu na mensagem
> news:4458cd1d$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
>> Paulo,
>>
>> This class has nothing to deal with IE. Is for WINDOWS OS Registry
>> database.
>>
>> Regards,
>>
>> "Paulo Jorge M. Félix" <
pjmfelix@sisbit.pt> escribió en el mensaje
>> news:44589997$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
>>> Hi.
>>>
>>> In this class what is equal to
>>> RegQueryValue(Handle,"IExplore.Exe",@cValue).
>>>
>>> Regards.
>>>
>>
>>
>
>