Для компьютерщиков! Инструмент разработки системы "УС Land" : КИС Lack & УС Land

    
* --------------------------------------------------------------------------------------------------
*   Генерация уникального GUID через класс Windows от XP и выше. Посмотрено и проверено на FoxClub
*   Делаю через отдельную функцию для освобождение переменных класса и локальных переменных
FUNC cgCreaGUID()
    LOCA oGUID := CreateObject("scriptlet.typelib")
    IF oGUID <> NIL
        RETU Lower(Subs( oGUID:GUID, 2, 36 ))
    ENDI
    ErrMess("Не доступен класс Windows: scriptlet.typelib. Смените операционную систему!",cError)
    RETU ""

  MODULE('GUID')
     CoCreateGUID (*GLO_Guid Guid),LONG,RAW,PASCAL,NAME('CoCreateGuid')
    StringFromGUID2 (*GLO_Guid Guid,*Cstring Lpsz, LONG Cbmax),LONG,RAW,PASCAL,NAME('StringFromGUID2')
  END

GLO_GUID group,type
Data1 ulong
Data2 ulong
Data3 ushort
Data4 string(8)
  end

FsGetGuid            FUNCTION (lop:NoHypens)      ! Объявление процедуры
FilesOpened          LONG
loc:GUID1      CSTRING(101)
loc:GUID2      STRING (100)
loc:ReturnCode LONG
loc:GUID       like(GLO_GUID)
loc:maxlen     long
loc:i          long
loc:j          long
loc:NoHypens   byte
  CODE                                            ! Начало исполняемого кода
        clear(loc:GUID )
        clear(loc:GUID1)
        clear(loc:GUID2)
  
        if omitted(1)
           loc:NoHypens=0
        else
           loc:NoHypens=lop:NoHypens
        .
  
        loc:MaxLen = 36
  
        loc:ReturnCode = CoCreateGUID (loc:GUID)
        loc:ReturnCode = StringFromGUID2(loc:GUID,loc:GUID1,size(loc:GUID1))
        loc:GUID1 = upper(loc:GUID1)
  
        loc:j = 0
        loop loc:i = 2 to size(loc:GUID1)
           if loc:GUID1[loc:i] = '}'
              break
           end
  
           if loc:GUID1[loc:i] = '<0>'
              cycle
           end
  
           if loc:NoHypens
               if loc:GUID1[loc:i] = '-'
                  cycle
               end
           end
  
           loc:j += 1
           if loc:j > size(loc:GUID2) or loc:j > loc:MaxLen
              break
           end
  
           loc:GUID2[loc:j] = loc:GUID1[loc:i]
        END
  
        loc:GUID2[loc:j+1] = ' '
        return(loc:GUID2)

   LOCA oIE
   PRIV cZ := Alltrim( cRes )
    TRY		//	Декларирование структуры с обработкой ошибок выполнения
		oIE	:= CreateObject("InternetExplorer.Application" )
    CATCH
        ErrMess( "Не могу открыть IE! Не работает интернет, используется не Windows и etc. [" + Ole2TxtError()+ "]",cError )
        RETU
    END

	//	Активирую Web страницу по настройкам программы. По умолчанию значение .F.
	oIE:Navigate( cZ )
    IF !lgWin10 THEN pNo10(oIE)

PROC pHelpResurs(cRes)
    LOCA loShell, cZ:=Alltrim(cRes)
    loShell := CreateObject("Shell.Application")
    loShell:Open(cZ)