laser_pc/NSIS-N2/Examples/Plugin/exdll_with_unit.dpr

{
  NSIS ExDLL2 example
  Original is ExDLL
  (C) 2001 - Peter Windridge

  Changed with delphi unit nsis.pas
  by bernhard mayer

  Tested in Delphi 7.0
}

// Example NSIS code
{
Section
  exdll_with_unit::registerplugincallback

  StrCpy $3 "Hello"
  Push "World"
  exdll_with_unit::pop_dlg_push
  Pop $1
  DetailPrint $$1=$1
  DetailPrint $$3=$3

  GetFunctionAddress $0 nsistest
  Push $0
  exdll_with_unit::callnsisfunc
SectionEnd

Function nsistest
  DetailPrint "Hello from NSIS function"
FunctionEnd
}


library exdll;

uses
  nsis, windows;

{$IFDEF UNICODE}
type TString = System.WideString; // UnicodeString?
type PTChar = PWideChar;
{$ELSE}
type TString = AnsiString;
type PTChar = PAnsiChar;
{$ENDIF}

procedure pop_dlg_push(const hwndParent: HWND; const string_size: integer; const variables: PTChar; const stacktop: pointer); cdecl;
begin
  // set up global variables
  Init(hwndParent, string_size, variables, stacktop);

  NSISDialog(GetUserVariable(INST_3), 'The value of $3', MB_OK);
  NSISDialog(PopString, 'pop', MB_OK);
  PushString('Hello, this is a push');
  SetUserVariable(INST_3, 'This is user var $3');
end;


procedure callnsisfunc(const hwndParent: HWND; const string_size: integer; const variables: PTChar; const stacktop: pointer; const extraparameters: pointer); cdecl;
var
  FuncAddr : TString;
begin
  Init(hwndParent, string_size, variables, stacktop, extraparameters);

  FuncAddr := PopString();
  Call(FuncAddr);
end;


function mynsiscallback(const NSPIM: TNSPIM): Pointer; cdecl;
begin
  Result := nil;
  if NSPIM = NSPIM_UNLOAD then
    begin
      NSISDialog(PTChar('NSPIM_UNLOAD is the final callback, goodbye...'), PTChar('mynsiscallback'), MB_OK);
    end;
end;


procedure registerplugincallback(const hwndParent: HWND; const string_size: integer; const variables: PTChar; const stacktop: pointer; const extraparameters: pointer); cdecl;
var
  ThisDllInstance : HMODULE;
begin
  Init(hwndParent, string_size, variables, stacktop, extraparameters);

  if g_extraparameters <> nil then
  begin
    ThisDllInstance := hInstance;
    TRegisterPluginCallback(g_extraparameters.RegisterPluginCallback)(ThisDllInstance, @mynsiscallback);
  end;
end;


exports pop_dlg_push;
exports callnsisfunc;
exports registerplugincallback;

begin
end.