other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr@b8a032363ba2 (annotated)
other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr
Thu, 22 Jan 2015 13:21:57 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Thu, 22 Jan 2015 13:21:57 +0100
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
- permissions
- -rw-r--r--
Incorporate requested changes from Mozilla in review:
https://bugzilla.mozilla.org/show_bug.cgi?id=1123480#c6
| michael@0 | 1 | { |
| michael@0 | 2 | NSIS ExDLL2 example |
| michael@0 | 3 | Original is ExDLL |
| michael@0 | 4 | (C) 2001 - Peter Windridge |
| michael@0 | 5 | |
| michael@0 | 6 | Changed with delphi unit nsis.pas |
| michael@0 | 7 | by bernhard mayer |
| michael@0 | 8 | |
| michael@0 | 9 | Tested in Delphi 7.0 |
| michael@0 | 10 | } |
| michael@0 | 11 | |
| michael@0 | 12 | library exdll; |
| michael@0 | 13 | |
| michael@0 | 14 | uses |
| michael@0 | 15 | nsis, windows; |
| michael@0 | 16 | |
| michael@0 | 17 | procedure ex_dll(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer); cdecl; |
| michael@0 | 18 | begin |
| michael@0 | 19 | // set up global variables |
| michael@0 | 20 | Init(hwndParent, string_size, variables, stacktop); |
| michael@0 | 21 | |
| michael@0 | 22 | NSISDialog(GetUserVariable(INST_0), 'The value of $0', MB_OK); |
| michael@0 | 23 | NSISDialog(PopString, 'pop', MB_OK); |
| michael@0 | 24 | PushString('Hello, this is a push'); |
| michael@0 | 25 | SetUserVariable(INST_0, 'This is user var $0'); |
| michael@0 | 26 | end; |
| michael@0 | 27 | |
| michael@0 | 28 | exports ex_dll; |
| michael@0 | 29 | |
| michael@0 | 30 | begin |
| michael@0 | 31 | end. |
