Parent Directory | Revision Log
dos2unix
1 | janosch | 1.2 | |
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 |