other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr@97036ab72558
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.
1 {
2 NSIS ExDLL2 example
3 Original is ExDLL
4 (C) 2001 - Peter Windridge
6 Changed with delphi unit nsis.pas
7 by bernhard mayer
9 Tested in Delphi 7.0
10 }
12 library exdll;
14 uses
15 nsis, windows;
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);
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;
28 exports ex_dll;
30 begin
31 end.
