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
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