* код при старте приложения
if version(2)=0   &&  runtime
   local cTemp, aFiles[1,1], i, lDblRun, lCrash, iDscr

   cTemp = addbs(getenv("Temp"))
   lDblRun = .f.    && признак повторного запуска
   lCrash = .f.     && признак аварийного завершения
   for i=1 to adir(aFiles, cTemp+this.AppLabel+"*.run")
      iDscr = fopen(cTemp+aFiles[i,1],2)
      if iDscr>0
         lCrash = True
         fclose(iDscr)
         erase (cTemp+aFiles[i,1])
      else
         lDblRun = True
      endif
   endfor

   if lCrash
      messagebox("Один из предыдущих сеансов работы программы завершен аварийно!"+CR+;
         "При повторении подобных ситуаций обратитесь в отдел ИТ"), PICT_WARN, MSG_WARN)
   endif
   if lDblRun
      messagebox("Программа уже запущена на Вашем компьютере!", PICT_WARN, MSG_WARN)
   endif

   this.RunFile = cTemp+this.AppLabel+sys(2015)+".run"
   this.RunFileDscr = fcreate(this.RunFile)
   if this.RunFileDscr<=0
      messagebox("Невозможно создать регистрационный файл!", PICT_ERR, MSG_ERR)
      return .f.
   endif
endif

* код при закрытии приложения
if this.RunFileDscr>0
   fclose(this.RunFileDscr)
endif
if !empty(this.RunFile)
   erase (this.RunFile)
endif