/[cvs]/joko/ToolBox/Windows/VpnDial-installer/ras_functions.nsi
ViewVC logotype

Diff of /joko/ToolBox/Windows/VpnDial-installer/ras_functions.nsi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Tue Nov 22 16:14:19 2005 UTC revision 1.2 by janosch, Tue Nov 22 17:05:58 2005 UTC
# Line 1  Line 1 
1    
2    
3  ; from: http://nsis.sourceforge.net/Create_a_GUID,_a_Globally_Unique_Identifier  ; from: http://nsis.sourceforge.net/Create_a_GUID,_a_Globally_Unique_Identifier
4    
5  ;Call CreateGUID  ;Call CreateGUID
6  ;Pop $0 ;contains GUID  ;Pop $0 ;contains GUID
7  Function CreateGUID  Function CreateGUID
8    Push $0    Push $0
9    Push $1    Push $1
10    System::Alloc 16    System::Alloc 16
11    System::Call 'ole32::CoCreateGuid(i sr1)'    System::Call 'ole32::CoCreateGuid(i sr1)'
12    System::Call 'ole32::StringFromGUID2(i r1, w .r0, i ${NSIS_MAX_STRLEN})'    System::Call 'ole32::StringFromGUID2(i r1, w .r0, i ${NSIS_MAX_STRLEN})'
13    System::Free $1    System::Free $1
14    Pop $1    Pop $1
15    Exch $0    Exch $0
16  FunctionEnd  FunctionEnd
17    
18  Function CreateRasGUID  Function CreateRasGUID
19    Call CreateGUID    Call CreateGUID
20    Pop $0    Pop $0
21    StrCpy $R0 $0    StrCpy $R0 $0
22    ${StrRep} $R0 $R0 "{" ""    ${StrRep} $R0 $R0 "{" ""
23    ${StrRep} $R0 $R0 "}" ""    ${StrRep} $R0 $R0 "}" ""
24    ${StrRep} $R0 $R0 "-" ""    ${StrRep} $R0 $R0 "-" ""
25    Push $R0    Push $R0
26  FunctionEnd  FunctionEnd
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed