38 lines
681 B
ObjectPascal
38 lines
681 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;
|
||
|
|
|
||
|
|
function ex_dll(hwndParent: HWND; string_size: integer; variables: PChar; stacktop: pointer):integer; cdecl;
|
||
|
|
var
|
||
|
|
c: PChar;
|
||
|
|
buf: array[0..1024] of char;
|
||
|
|
begin
|
||
|
|
// set up global variables
|
||
|
|
Init(hwndParent,string_size,variables,stacktop);
|
||
|
|
|
||
|
|
c:=GetUserVariable(INST_0);
|
||
|
|
MessageBox(g_hwndParent,c,'The value of $0',MB_OK);
|
||
|
|
PopString(@buf);
|
||
|
|
MessageBox(g_hwndParent,@buf,'pop',MB_OK);
|
||
|
|
PushString(PChar('Hello, this is a push'));
|
||
|
|
|
||
|
|
Result:=1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
exports ex_dll;
|
||
|
|
|
||
|
|
begin
|
||
|
|
end.
|