The Tor Browser: other-licenses/nsis/Contrib/ExDLL/exdll_with

Incorporate requested changes from Mozilla in review:
https://bugzilla.mozilla.org/show_bug.cgi?id=1123480#c6

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.

The Tor Browser / file revision