* Эта процедура бродит уже лет  10  минимум
 * Вызывается так 
  
 SetPath(@isDebug)
 *  тут все барахло как использовать isDebug
....
Procedure SetPath(isDebug)
Local m.lcsys16, m.cprogram, m.lcpath
Local m.ni, m.nctl, actl,isDebug
Dimension actl[ 1 ]
lcsys16 = Sys( 16 )
lcprogram = Substr(m.lcsys16, At(":", m.lcsys16)- 1 )
Cd Left(m.lcprogram, Rat("\", m.lcprogram))
If Right(m.lcprogram,  3 ) ="FXP" Or Right(m.lcprogram,  3 )='VCT'
	isDebug   = .T.
	Clear Screen
	Cd Left(m.lcprogram, Rat("\", m.lcprogram,  2 ))
	caddpath = Set("path")
	Hide Window All
	Clear Macros
Else
	isDebug  = .F.
	caddpath = ';DB;MEM;TEMP'
Endif
Cd Sys( 5 )+Sys( 2003 )
Set Path To (m.caddpath)
If !isDebug
	* крутой код про подключение библиотек когда ты не в отладке
Else
	* тут не менее крутой код  когда ты  в одладке
Endif
* тут все гавно которое работает у тебя всегда
Return  && Все что угодно
Endproc
* Ну  можно с Api сократить до строчек  5 .