other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr@97036ab72558 (annotated)
other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr
Tue, 06 Jan 2015 21:39:09 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Tue, 06 Jan 2015 21:39:09 +0100
- branch
- TOR_BUG_9701
- changeset 8
- 97036ab72558
- permissions
- -rw-r--r--
Conditionally force memory storage according to privacy.thirdparty.isolate;
This solves Tor bug #9701, complying with disk avoidance documented in
https://www.torproject.org/projects/torbrowser/design/#disk-avoidance.
| 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. |
