dragonleo/NSIS
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

* mynsiscallback must return nil and not 0 to avoid warning in some versions of Delphi.

Browse source 
* NSISDialog only uses g_hwndParent if it is valid.


git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@6576 212acab6-be3b-0410-9dea-997c60f758d6
This commit is contained in:
anders_k 2015-02-06 21:22:31 +00:00
parent b28ce8b1d8
commit 4cdb1cf7d1
3 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Contrib/ExDLL/exdll_with_unit.dpr
View file

@ -63,11 +63,10 @@ end;
function mynsiscallback(const NSPIM: TNSPIM): Pointer; cdecl;
begin
Result := 0;
Result := nil;
if NSPIM = NSPIM_UNLOAD then
begin
// Note: Cannot use NSISDialog here because g_hwndParent has been destroyed at this point
MessageBox(0, PChar('NSPIM_UNLOAD is the final callback, goodbye...'), PChar('mynsiscallback'), MB_OK);
NSISDialog(PChar('NSPIM_UNLOAD is the final callback, goodbye...'), PChar('mynsiscallback'), MB_OK);
end;
end;

6
Contrib/ExDLL/nsis.pas
View file

@ -195,8 +195,12 @@ begin
end;
procedure NSISDialog(const text, caption: string; const buttons: integer);
var
hwndOwner: HWND;
begin
MessageBox(g_hwndParent, PChar(text), PChar(caption), buttons);
hwndOwner := g_hwndParent;
if not IsWindow(g_hwndParent) then hwndOwner := 0; // g_hwndParent is not valid in NSPIM_[GUI]UNLOAD
MessageBox(hwndOwner, PChar(text), PChar(caption), buttons);
end;
begin

6
Docs/src/history.but
View file

@ -12,6 +12,12 @@ Released on ?, 201?
\S2{} Minor Changes
\b Fixed minor issues in the Pascal NSIS plug-in SDK and removed the extrap global variable
\S1{v3.0b2-cl} Changelog
\S2{} Minor Changes
\b Windows 10 support
\H{v3.0b1} 3.0 Beta 1