michael@0: {
michael@0:   NSIS ExDLL2 example
michael@0:   Original is ExDLL
michael@0:   (C) 2001 - Peter Windridge
michael@0: 
michael@0:   Changed with delphi unit nsis.pas
michael@0:   by bernhard mayer
michael@0: 
michael@0:   Tested in Delphi 7.0
michael@0: }
michael@0: 
michael@0: library exdll;
michael@0: 
michael@0: uses
michael@0:   nsis, windows;
michael@0: 
michael@0: procedure ex_dll(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer); cdecl;
michael@0: begin
michael@0:   // set up global variables
michael@0:   Init(hwndParent, string_size, variables, stacktop);
michael@0: 
michael@0:   NSISDialog(GetUserVariable(INST_0), 'The value of $0', MB_OK);
michael@0:   NSISDialog(PopString, 'pop', MB_OK);
michael@0:   PushString('Hello, this is a push');
michael@0:   SetUserVariable(INST_0, 'This is user var $0');
michael@0: end;
michael@0: 
michael@0: exports ex_dll;
michael@0: 
michael@0: begin
michael@0: end.