1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,31 @@
1.4 +{
1.5 + NSIS ExDLL2 example
1.6 + Original is ExDLL
1.7 + (C) 2001 - Peter Windridge
1.8 +
1.9 + Changed with delphi unit nsis.pas
1.10 + by bernhard mayer
1.11 +
1.12 + Tested in Delphi 7.0
1.13 +}
1.14 +
1.15 +library exdll;
1.16 +
1.17 +uses
1.18 + nsis, windows;
1.19 +
1.20 +procedure ex_dll(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer); cdecl;
1.21 +begin
1.22 + // set up global variables
1.23 + Init(hwndParent, string_size, variables, stacktop);
1.24 +
1.25 + NSISDialog(GetUserVariable(INST_0), 'The value of $0', MB_OK);
1.26 + NSISDialog(PopString, 'pop', MB_OK);
1.27 + PushString('Hello, this is a push');
1.28 + SetUserVariable(INST_0, 'This is user var $0');
1.29 +end;
1.30 +
1.31 +exports ex_dll;
1.32 +
1.33 +begin
1.34 +end.
