Function CreateGUID
  Push $0
  Push $1
  System::Alloc 16
  System::Call 'ole32::CoCreateGuid(i sr1)'
  System::Call 'ole32::StringFromGUID2(i r1, w .r0, i ${NSIS_MAX_STRLEN})'
  System::Free $1 
  Pop $1
  Exch $0
FunctionEnd