PureBoard

Code: Alles auswählen

; Falls die COMLIB (von aXend) nicht vorhanden,
; Uni2Ansi-Procedure ((c) aXend) einfügen:
; Procedure.s Uni2Ansi(*Unicode.l)
;   size.l = WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, #Null, #Null, #Null, #Null)
;   ansi.s=Space(size)
;   WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, @ansi, size, #Null, #Null)
;   ProcedureReturn ansi 
; EndProcedure


Procedure.s GUIDcreate()
  g.GUID
  If CoCreateGuid_(@g) = #S_OK
    unicodeGUID$ = Space(78)
    GUIDLen = StringFromGUID2_(g, @unicodeGUID$, Len(unicodeGUID$))
    ansiGUID$ = Left(Uni2Ansi(@unicodeGUID$), GUIDLen-1)
  EndIf
ProcedureReturn ansiGUID$
EndProcedure

Debug GUIDcreate()