other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr@6474c204b198 (annotated)
other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr
Wed, 31 Dec 2014 06:09:35 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Wed, 31 Dec 2014 06:09:35 +0100
- changeset 0
- 6474c204b198
- permissions
- -rw-r--r--
Cloned upstream origin tor-browser at tor-browser-31.3.0esr-4.5-1-build1
revision ID fc1c9ff7c1b2defdbc039f12214767608f46423f for hacking purpose.
| 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. |
