The Tor Browser / file comparison
comparison: other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr
other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:390d1444dbfb |
|---|---|
| 1 { | |
| 2 NSIS ExDLL2 example | |
| 3 Original is ExDLL | |
| 4 (C) 2001 - Peter Windridge | |
| 5 | |
| 6 Changed with delphi unit nsis.pas | |
| 7 by bernhard mayer | |
| 8 | |
| 9 Tested in Delphi 7.0 | |
| 10 } | |
| 11 | |
| 12 library exdll; | |
| 13 | |
| 14 uses | |
| 15 nsis, windows; | |
| 16 | |
| 17 procedure ex_dll(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer); cdecl; | |
| 18 begin | |
| 19 // set up global variables | |
| 20 Init(hwndParent, string_size, variables, stacktop); | |
| 21 | |
| 22 NSISDialog(GetUserVariable(INST_0), 'The value of $0', MB_OK); | |
| 23 NSISDialog(PopString, 'pop', MB_OK); | |
| 24 PushString('Hello, this is a push'); | |
| 25 SetUserVariable(INST_0, 'This is user var $0'); | |
| 26 end; | |
| 27 | |
| 28 exports ex_dll; | |
| 29 | |
| 30 begin | |
| 31 end. |
