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

Cloned upstream origin tor-browser at tor-browser-31.3.0esr-4.5-1-build1
revision ID fc1c9ff7c1b2defdbc039f12214767608f46423f for hacking purpose.

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