Определяем полный путь к EXCEL.EXE
*------------------------------------------------------------------------------
#define HKEY_LOCAL_MACHINE 0x80000002 
#define KEY_READ 0x00020019 
#define ERROR_SUCCESS  0 
 
DECLARE INTEGER RegOpenKeyEx IN ADVAPI32 INTEGER HKLM, STRING SubKey, INTEGER Dummy, INTEGER Access, INTEGER @hKey 
DECLARE INTEGER RegCloseKey IN ADVAPI32 INTEGER 
DECLARE INTEGER RegQueryValueEx IN ADVAPI32 INTEGER hKey, STRING ValueName, INTEGER Dummy, INTEGER Type, STRING Data, INTEGER @Size 

* это ветвь реестра, в которой находится интересующий нас параметр 
SubKey="Software\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE"
hkey= 0 

* Открываем эту ветвь и получаем её handle 
IF RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey,  0 , KEY_READ, @hKey) != ERROR_SUCCESS 
   MESSAGEBOX("Не найден пакет MS Excel.Дальнейшая работа невозможна", 16 ,"Внимание") 
   
   IF File(lcFile)
      ERASE (lcFile)
   ENDIF
   RETURN 
ENDIF 

* "Path" - это название параметра, значение которого надо получить.
*------------------------------------------------------------------------------ 
*Сначала определяем, сколько памяти нам нужно зарезервировать, чтобы принять этот параметер 
nSize= 0  
RegQueryValueEx(hKey, "Path",  0 ,  0 ,  0 , @nSize) 

* Резервируем память 
lcResult=SPACE(nSize) 

* Теперь считываем значение параметра 
RegQueryValueEx(hKey,"Path", 0 , 0 ,@lcResult, @nSize) 

* Заканчиваем работать с реестром 
RegCloseKey(hKey) 

*   Формируем строку вызова
lcResult=ALLTRIM(STRTRAN(lcResult, Chr( 0 ), " "))