diff -r 000000000000 -r 6474c204b198 other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/other-licenses/nsis/Contrib/ExDLL/exdll_with_unit.dpr Wed Dec 31 06:09:35 2014 +0100 @@ -0,0 +1,31 @@ +{ + NSIS ExDLL2 example + Original is ExDLL + (C) 2001 - Peter Windridge + + Changed with delphi unit nsis.pas + by bernhard mayer + + Tested in Delphi 7.0 +} + +library exdll; + +uses + nsis, windows; + +procedure ex_dll(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer); cdecl; +begin + // set up global variables + Init(hwndParent, string_size, variables, stacktop); + + NSISDialog(GetUserVariable(INST_0), 'The value of $0', MB_OK); + NSISDialog(PopString, 'pop', MB_OK); + PushString('Hello, this is a push'); + SetUserVariable(INST_0, 'This is user var $0'); +end; + +exports ex_dll; + +begin +end.