Information générale
Catégorie:
Fonctions Windows API
>Hi Peter.
>
>>Any one know that where I can find an example in Visual FoxPro using these two Windows API functions? Thanks.
>
>Look at the Registry class included with the FFC files with VFP.
>
>Doug
Thanks, Doug. When I used the following code, the Entry was created but the value of the entry is stored as hex instead of characters in quotes in the Registry. What have I missed? Thanks.
nErrCode=RegOpenKey(HKEY_CURRENT_USER,PDFWRITERPATH,@nKeyHandle)
do while .t.
store 0 to lpdwReserved,nErrCode
lpdwType=1
store space(256) to lpbData
lpszEntry="PDFFileName"
store 256 to lpcchValue,lpcbData
ErrCode=RegQueryValueExnKeyHandle,lpszEntry,lpdwReserved,@lpdwType,@lpbData,@lpcbData)
if empty(left(m.lpbData,m.lpcbData-1))
lpbData="c:/interview/apps/amia/"+gsPDFPath+pcDocID+".pdf"
lpcbData=len(lpbData)
ErrCode=RegSetValueExnKeyHandle,lpszEntry,lpdwReserved,lpdwType,lpbData,lpcbData)
exit
else
wait nowait timeout .2
endif
enddo
nErrCode=RegCloseKey(nKeyHandle)
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement