c775c5a3e8
git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@3136 212acab6-be3b-0410-9dea-997c60f758d6
31 lines
605 B
ObjectPascal
31 lines
605 B
ObjectPascal
{
|
|
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(hwndParent: HWND; string_size: integer; variables: PChar; 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 0');
|
|
end;
|
|
|
|
exports ex_dll;
|
|
|
|
begin
|
|
end.
|