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