Windows/VpnDial-installer/ras_functions.nsi



; from: http://nsis.sourceforge.net/Create_a_GUID,_a_Globally_Unique_Identifier

;Call CreateGUID
;Pop $0 ;contains GUID
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

Function CreateRasGUID
  Call CreateGUID
  Pop $0
  StrCpy $R0 $0
  ${StrRep} $R0 $R0 "{" ""
  ${StrRep} $R0 $R0 "}" ""
  ${StrRep} $R0 $R0 "-" ""
  Push $R0
FunctionEnd
1	joko	1.1
2
3			; from: http://nsis.sourceforge.net/Create_a_GUID,_a_Globally_Unique_Identifier
4
5			;Call CreateGUID
6			;Pop $0 ;contains GUID
7			Function CreateGUID
8			Push $0
9			Push $1
10			System::Alloc 16
11			System::Call 'ole32::CoCreateGuid(i sr1)'
12			System::Call 'ole32::StringFromGUID2(i r1, w .r0, i ${NSIS_MAX_STRLEN})'
13			System::Free $1
14			Pop $1
15			Exch $0
16			FunctionEnd
17
18			Function CreateRasGUID
19			Call CreateGUID
20			Pop $0
21			StrCpy $R0 $0
22			${StrRep} $R0 $R0 "{" ""
23			${StrRep} $R0 $R0 "}" ""
24			${StrRep} $R0 $R0 "-" ""
25			Push $R0
26			FunctionEnd
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26