other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr

Fri, 16 Jan 2015 18:13:44 +0100

author
Michael Schloh von Bennewitz <michael@schloh.com>
date
Fri, 16 Jan 2015 18:13:44 +0100
branch
TOR_BUG_9701
changeset 14
925c144e1f1f
permissions
-rw-r--r--

Integrate suggestion from review to improve consistency with existing code.

     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.

mercurial