Parent Directory | Revision Log
+ initial commit
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 |