speedo: Update NSIS helper DLL from Gpg4win

* build-aux/speedo/w32/inst.nsi: Re-enable run-once check.
* build-aux/speedo/w32/exdll.c: New.
* build-aux/speedo.mk (g4wihelp.dll): Change build commands.
--

GnuPG-bug-id: 6448

6 files changed, 724 insertions, 261 deletions

diff --git a/Makefile.am b/Makefile.am
index 6a2508b11..0f2075089 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -55,6 +55,7 @@ EXTRA_DIST = build-aux/config.rpath build-aux/potomo autogen.sh autogen.rc \
              build-aux/speedo/w32/pango.modules		    \
              build-aux/speedo/w32/gdk-pixbuf-loaders.cache  \
              build-aux/speedo/w32/exdll.h		    \
+             build-aux/speedo/w32/exdll.c		    \
              build-aux/speedo/w32/README.txt		    \
              build-aux/speedo/w32/gnupg-logo-150x57.bmp	    \
              build-aux/speedo/w32/gnupg-logo-164x314.bmp    \
diff --git a/build-aux/speedo.mk b/build-aux/speedo.mk
index f21f43731..820b0a862 100644
--- a/build-aux/speedo.mk
+++ b/build-aux/speedo.mk
@@ -1340,10 +1340,14 @@ $(bdir)/README.txt: $(bdir)/NEWS.tmp $(topsrc)/README $(w32src)/README.txt \
            | sed -e '/^#/d' \
            | awk '{printf "%s\r\n", $$0}' >$(bdir)/README.txt
 
-$(bdir)/g4wihelp.dll: $(w32src)/g4wihelp.c $(w32src)/exdll.h
+$(bdir)/g4wihelp.dll: $(w32src)/g4wihelp.c $(w32src)/exdll.h $(w32src)/exdll.c
 	(set -e; cd $(bdir); \
-	 $(W32CC) -I. -shared -O2 -o g4wihelp.dll $(w32src)/g4wihelp.c \
-	          -lwinmm -lgdi32; \
+         $(W32CC) -DUNICODE -static-libgcc -I . -O2 -c \
+                          -o exdll.o $(w32src)/exdll.c; \
+	 $(W32CC) -DUNICODE -static-libgcc -I. -shared -O2 \
+                          -o g4wihelp.dll $(w32src)/g4wihelp.c exdll.o \
+	                  -lwinmm -lgdi32 -luserenv \
+                          -lshell32 -loleaut32 -lshlwapi -lmsimg32; \
 	 $(STRIP) g4wihelp.dll)
 
 w32_insthelpers: $(bdir)/g4wihelp.dll
diff --git a/build-aux/speedo/w32/exdll.c b/build-aux/speedo/w32/exdll.c
new file mode 100644
index 000000000..7815523ae
--- /dev/null
+++ b/build-aux/speedo/w32/exdll.c
@@ -0,0 +1,286 @@
+#include "exdll.h"
+
+unsigned int g_stringsize;
+stack_t **g_stacktop;
+LPTSTR g_variables;
+
+// utility functions (not required but often useful)
+
+int NSISCALL popstring(LPTSTR str)
+{
+  stack_t *th;
+  if (!g_stacktop || !*g_stacktop) return 1;
+  th=(*g_stacktop);
+  if (str) lstrcpy(str,th->text);
+  *g_stacktop = th->next;
+  GlobalFree((HGLOBAL)th);
+  return 0;
+}
+
+int NSISCALL popstringn(LPTSTR str, int maxlen)
+{
+  stack_t *th;
+  if (!g_stacktop || !*g_stacktop) return 1;
+  th=(*g_stacktop);
+  if (str) lstrcpyn(str,th->text,maxlen?maxlen:g_stringsize);
+  *g_stacktop = th->next;
+  GlobalFree((HGLOBAL)th);
+  return 0;
+}
+
+void NSISCALL pushstring(LPCTSTR str)
+{
+  stack_t *th;
+  if (!g_stacktop) return;
+  th=(stack_t*)GlobalAlloc(GPTR,(sizeof(stack_t)+(g_stringsize)*sizeof(*str)));
+  lstrcpyn(th->text,str,g_stringsize);
+  th->next=*g_stacktop;
+  *g_stacktop=th;
+}
+
+LPTSTR NSISCALL getuservariable(const int varnum)
+{
+  if (!isvalidnsisvarindex(varnum)) return NULL;
+  return (LPWSTR)((wchar_t*)g_variables+varnum*g_stringsize);
+}
+
+void NSISCALL setuservariable(const int varnum, LPCTSTR var)
+{
+  if (var && isvalidnsisvarindex(varnum))
+    lstrcpy((LPWSTR)((wchar_t*)g_variables + varnum*g_stringsize), var);
+}
+
+#ifdef UNICODE
+int NSISCALL PopStringA(LPSTR ansiStr)
+{
+   LPWSTR wideStr = (LPWSTR) GlobalAlloc(GPTR, g_stringsize*sizeof(WCHAR));
+   int rval = popstring(wideStr);
+   WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
+   GlobalFree((HGLOBAL)wideStr);
+   return rval;
+}
+
+int NSISCALL PopStringNA(LPSTR ansiStr, int maxlen)
+{
+   int realLen = maxlen ? maxlen : g_stringsize;
+   LPWSTR wideStr = (LPWSTR) GlobalAlloc(GPTR, realLen*sizeof(WCHAR));
+   int rval = popstringn(wideStr, realLen);
+   WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, realLen, NULL, NULL);
+   GlobalFree((HGLOBAL)wideStr);
+   return rval;
+}
+
+void NSISCALL PushStringA(LPCSTR ansiStr)
+{
+   LPWSTR wideStr = (LPWSTR) GlobalAlloc(GPTR, g_stringsize*sizeof(WCHAR));
+   MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
+   pushstring(wideStr);
+   GlobalFree((HGLOBAL)wideStr);
+   return;
+}
+
+void NSISCALL GetUserVariableW(const int varnum, LPWSTR wideStr)
+{
+   lstrcpyW(wideStr, getuservariable(varnum));
+}
+
+void NSISCALL GetUserVariableA(const int varnum, LPSTR ansiStr)
+{
+   LPWSTR wideStr = getuservariable(varnum);
+   WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
+}
+
+void NSISCALL SetUserVariableA(const int varnum, LPCSTR ansiStr)
+{
+   if (ansiStr && isvalidnsisvarindex(varnum))
+   {
+      LPWSTR wideStr = (LPWSTR)((char*)g_variables + varnum * g_stringsize);
+      MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
+   }
+}
+
+#else
+// ANSI defs
+int NSISCALL PopStringW(LPWSTR wideStr)
+{
+   LPSTR ansiStr = (LPSTR) GlobalAlloc(GPTR, g_stringsize);
+   int rval = popstring(ansiStr);
+   MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
+   GlobalFree((HGLOBAL)ansiStr);
+   return rval;
+}
+
+int NSISCALL PopStringNW(LPWSTR wideStr, int maxlen)
+{
+   int realLen = maxlen ? maxlen : g_stringsize;
+   LPSTR ansiStr = (LPSTR) GlobalAlloc(GPTR, realLen);
+   int rval = popstringn(ansiStr, realLen);
+   MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, realLen);
+   GlobalFree((HGLOBAL)ansiStr);
+   return rval;
+}
+
+void NSISCALL PushStringW(LPWSTR wideStr)
+{
+   LPSTR ansiStr = (LPSTR) GlobalAlloc(GPTR, g_stringsize);
+   WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
+   pushstring(ansiStr);
+   GlobalFree((HGLOBAL)ansiStr);
+}
+
+void NSISCALL GetUserVariableW(const int varnum, LPWSTR wideStr)
+{
+   LPSTR ansiStr = getuservariable(varnum);
+   MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
+}
+
+void NSISCALL GetUserVariableA(const int varnum, LPSTR ansiStr)
+{
+   lstrcpyA(ansiStr, getuservariable(varnum));
+}
+
+void NSISCALL SetUserVariableW(const int varnum, LPCWSTR wideStr)
+{
+   if (wideStr && isvalidnsisvarindex(varnum))
+   {
+      LPSTR ansiStr = (char*)g_variables + varnum * g_stringsize;
+      WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
+   }
+}
+#endif
+
+// playing with integers
+
+INT_PTR NSISCALL nsishelper_str_to_ptr(LPCTSTR s)
+{
+  INT_PTR v=0;
+  if (*s == _T('0') && (s[1] == _T('x') || s[1] == _T('X')))
+  {
+    s++;
+    for (;;)
+    {
+      int c=*(++s);
+      if (c >= _T('0') && c <= _T('9')) c-=_T('0');
+      else if (c >= _T('a') && c <= _T('f')) c-=_T('a')-10;
+      else if (c >= _T('A') && c <= _T('F')) c-=_T('A')-10;
+      else break;
+      v<<=4;
+      v+=c;
+    }
+  }
+  else if (*s == _T('0') && s[1] <= _T('7') && s[1] >= _T('0'))
+  {
+    for (;;)
+    {
+      int c=*(++s);
+      if (c >= _T('0') && c <= _T('7')) c-=_T('0');
+      else break;
+      v<<=3;
+      v+=c;
+    }
+  }
+  else
+  {
+    int sign=0;
+    if (*s == _T('-')) sign++; else s--;
+    for (;;)
+    {
+      int c=*(++s) - _T('0');
+      if (c < 0 || c > 9) break;
+      v*=10;
+      v+=c;
+    }
+    if (sign) v = -v;
+  }
+
+  return v;
+}
+
+unsigned int NSISCALL myatou(LPCTSTR s)
+{
+  unsigned int v=0;
+
+  for (;;)
+  {
+    unsigned int c=*s++;
+    if (c >= _T('0') && c <= _T('9')) c-=_T('0');
+    else break;
+    v*=10;
+    v+=c;
+  }
+  return v;
+}
+
+int NSISCALL myatoi_or(LPCTSTR s)
+{
+  int v=0;
+  if (*s == _T('0') && (s[1] == _T('x') || s[1] == _T('X')))
+  {
+    s++;
+    for (;;)
+    {
+      int c=*(++s);
+      if (c >= _T('0') && c <= _T('9')) c-=_T('0');
+      else if (c >= _T('a') && c <= _T('f')) c-=_T('a')-10;
+      else if (c >= _T('A') && c <= _T('F')) c-=_T('A')-10;
+      else break;
+      v<<=4;
+      v+=c;
+    }
+  }
+  else if (*s == _T('0') && s[1] <= _T('7') && s[1] >= _T('0'))
+  {
+    for (;;)
+    {
+      int c=*(++s);
+      if (c >= _T('0') && c <= _T('7')) c-=_T('0');
+      else break;
+      v<<=3;
+      v+=c;
+    }
+  }
+  else
+  {
+    int sign=0;
+    if (*s == _T('-')) sign++; else s--;
+    for (;;)
+    {
+      int c=*(++s) - _T('0');
+      if (c < 0 || c > 9) break;
+      v*=10;
+      v+=c;
+    }
+    if (sign) v = -v;
+  }
+
+  // Support for simple ORed expressions
+  if (*s == _T('|'))
+  {
+      v |= myatoi_or(s+1);
+  }
+
+  return v;
+}
+
+INT_PTR NSISCALL popintptr()
+{
+  TCHAR buf[128];
+  if (popstringn(buf,COUNTOF(buf)))
+    return 0;
+  return nsishelper_str_to_ptr(buf);
+}
+
+int NSISCALL popint_or()
+{
+  TCHAR buf[128];
+  if (popstringn(buf,COUNTOF(buf)))
+    return 0;
+  return myatoi_or(buf);
+}
+
+void NSISCALL pushintptr(INT_PTR value)
+{
+  TCHAR buffer[30];
+  wsprintf(buffer, sizeof(void*) > 4 ? _T("%Id") : _T("%d"), value);
+  pushstring(buffer);
+}
diff --git a/build-aux/speedo/w32/exdll.h b/build-aux/speedo/w32/exdll.h
index bb13ae097..f419dc3fe 100644
--- a/build-aux/speedo/w32/exdll.h
+++ b/build-aux/speedo/w32/exdll.h
@@ -1,91 +1,47 @@
-/* exdll.h for use with gpg4win
- * Copyright (C) 1999-2005 Nullsoft, Inc.
- *
- * This license applies to everything in the NSIS package, except
- * where otherwise noted.
- *
- * This software is provided 'as-is', without any express or implied
- * warranty. In no event will the authors be held liable for any
- * damages arising from the use of this software.
- *
- * Permission is granted to anyone to use this software for any
- * purpose, including commercial applications, and to alter it and
- * redistribute it freely, subject to the following restrictions:
- *
- * 1. The origin of this software must not be misrepresented; you must
- *    not claim that you wrote the original software. If you use this
- *    software in a product, an acknowledgment in the product
- *    documentation would be appreciated but is not required.
- *
- * 2. Altered source versions must be plainly marked as such, and must
- *    not be misrepresented as being the original software.
- *
- * 3. This notice may not be removed or altered from any source
- *    distribution.
- ************************************************************
- * 2005-11-14 wk  Applied license text to original exdll.h file from
- *                NSIS 2.0.4 and did some formatting changes.
- */
-
-#ifndef _EXDLL_H_
-#define _EXDLL_H_
-
-/* only include this file from one place in your DLL.  (it is all
-   static, if you use it in two places it will fail) */
+#include <windows.h>
+#ifndef ___NSIS_PLUGIN__H___
+#define ___NSIS_PLUGIN__H___
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifndef NSISCALL
+#  define NSISCALL __stdcall
+#endif
+#if !defined(_WIN32) && !defined(LPTSTR)
+#  define LPTSTR TCHAR*
+#endif
+
+
+
+#ifndef NSISCALL
+#  define NSISCALL WINAPI
+#endif
 
 #define EXDLL_INIT()           {  \
         g_stringsize=string_size; \
         g_stacktop=stacktop;      \
         g_variables=variables; }
 
-/* For page showing plug-ins */
-#define WM_NOTIFY_OUTER_NEXT (WM_USER+0x8)
-#define WM_NOTIFY_CUSTOM_READY (WM_USER+0xd)
-#define NOTIFY_BYE_BYE 'x'
+
+enum NSPIM
+{
+  NSPIM_UNLOAD,
+  NSPIM_GUIUNLOAD
+};
+
+typedef UINT_PTR (*NSISPLUGINCALLBACK)(enum NSPIM);
 
 typedef struct _stack_t {
   struct _stack_t *next;
-  char text[1];          /* This should be the length of string_size. */
+#ifdef UNICODE
+  WCHAR text[1]; // this should be the length of g_stringsize when allocating
+#else
+  char text[1];
+#endif
 } stack_t;
 
-
-static unsigned int g_stringsize;
-static stack_t **g_stacktop;
-static char *g_variables;
-
-static int __stdcall popstring(char *str, size_t maxlen); /* 0 on success, 1 on empty stack */
-static void __stdcall pushstring(const char *str);
-
-enum
-  {
-    INST_0,         // $0
-    INST_1,         // $1
-    INST_2,         // $2
-    INST_3,         // $3
-    INST_4,         // $4
-    INST_5,         // $5
-    INST_6,         // $6
-    INST_7,         // $7
-    INST_8,         // $8
-    INST_9,         // $9
-    INST_R0,        // $R0
-    INST_R1,        // $R1
-    INST_R2,        // $R2
-    INST_R3,        // $R3
-    INST_R4,        // $R4
-    INST_R5,        // $R5
-    INST_R6,        // $R6
-    INST_R7,        // $R7
-    INST_R8,        // $R8
-    INST_R9,        // $R9
-    INST_CMDLINE,   // $CMDLINE
-    INST_INSTDIR,   // $INSTDIR
-    INST_OUTDIR,    // $OUTDIR
-    INST_EXEDIR,    // $EXEDIR
-    INST_LANG,      // $LANGUAGE
-    __INST_LAST
-};
-
 typedef struct {
   int autoclose;
   int all_user_var;
@@ -94,58 +50,127 @@ typedef struct {
   int exec_reboot;
   int reboot_called;
   int XXX_cur_insttype; /* deprecated */
-  int XXX_insttype_changed; /* deprecated */
+  int plugin_api_version;   /* Used to be insttype_changed */
   int silent;
   int instdir_error;
   int rtl;
   int errlvl;
+  int alter_reg_view;
+  int status_update;
 } exec_flags_t;
 
 typedef struct {
   exec_flags_t *exec_flags;
   int (__stdcall *ExecuteCodeSegment)(int, HWND);
+  void (__stdcall *validate_filename)(LPTSTR);
+  int (__stdcall  *RegisterPluginCallback)(HMODULE, NSISPLUGINCALLBACK);
 } extra_parameters_t;
 
 
-/* Utility functions (not required but often useful). */
-static int __stdcall
-popstring(char *str, size_t maxlen)
-{
-  stack_t *th;
-  if (!g_stacktop || !*g_stacktop)
-    return 1;
-  th=(*g_stacktop);
-  lstrcpyn (str, th->text, maxlen);
-  *g_stacktop = th->next;
-  GlobalFree((HGLOBAL)th);
-  return 0;
-}
-
-static void __stdcall
-pushstring(const char *str)
-{
-  stack_t *th;
-  if (!g_stacktop) return;
-  th=(stack_t*)GlobalAlloc(GPTR,sizeof(stack_t)+g_stringsize);
-  lstrcpyn(th->text,str,g_stringsize);
-  th->next=*g_stacktop;
-  *g_stacktop=th;
-}
-
-static char * __stdcall
-getuservariable(const int varnum)
+enum
 {
-  if (varnum < 0 || varnum >= __INST_LAST) return NULL;
-  return g_variables+varnum*g_stringsize;
-}
+INST_0,         // $0
+INST_1,         // $1
+INST_2,         // $2
+INST_3,         // $3
+INST_4,         // $4
+INST_5,         // $5
+INST_6,         // $6
+INST_7,         // $7
+INST_8,         // $8
+INST_9,         // $9
+INST_R0,        // $R0
+INST_R1,        // $R1
+INST_R2,        // $R2
+INST_R3,        // $R3
+INST_R4,        // $R4
+INST_R5,        // $R5
+INST_R6,        // $R6
+INST_R7,        // $R7
+INST_R8,        // $R8
+INST_R9,        // $R9
+INST_CMDLINE,   // $CMDLINE
+INST_INSTDIR,   // $INSTDIR
+INST_OUTDIR,    // $OUTDIR
+INST_EXEDIR,    // $EXEDIR
+INST_LANG,      // $LANGUAGE
+__INST_LAST
+};
 
-static void __stdcall
-setuservariable(const int varnum, const char *var)
-{
-  if (var != NULL && varnum >= 0 && varnum < __INST_LAST)
-    lstrcpy(g_variables + varnum*g_stringsize, var);
+extern unsigned int g_stringsize;
+extern stack_t **g_stacktop;
+extern LPTSTR g_variables;
+
+void NSISCALL pushstring(LPCTSTR str);
+void NSISCALL pushintptr(INT_PTR value);
+#define pushint(v) pushintptr((INT_PTR)(v))
+int NSISCALL popstring(LPTSTR str); // 0 on success, 1 on empty stack
+int NSISCALL popstringn(LPTSTR str, int maxlen); // with length limit, pass 0 for g_stringsize
+INT_PTR NSISCALL popintptr();
+#define popint() ( (int) popintptr() )
+int NSISCALL popint_or(); // with support for or'ing (2|4|8)
+INT_PTR NSISCALL nsishelper_str_to_ptr(LPCTSTR s);
+#define myatoi(s) ( (int) nsishelper_str_to_ptr(s) ) // converts a string to an integer
+unsigned int NSISCALL myatou(LPCTSTR s); // converts a string to an unsigned integer, decimal only
+int NSISCALL myatoi_or(LPCTSTR s); // with support for or'ing (2|4|8)
+LPTSTR NSISCALL getuservariable(const int varnum);
+void NSISCALL setuservariable(const int varnum, LPCTSTR var);
+
+#ifdef UNICODE
+#define PopStringW(x) popstring(x)
+#define PushStringW(x) pushstring(x)
+#define SetUserVariableW(x,y) setuservariable(x,y)
+
+int  NSISCALL PopStringA(LPSTR ansiStr);
+int  NSISCALL PopStringNA(LPSTR ansiStr, int maxlen);
+void NSISCALL PushStringA(LPCSTR ansiStr);
+void NSISCALL GetUserVariableW(const int varnum, LPWSTR wideStr);
+void NSISCALL GetUserVariableA(const int varnum, LPSTR ansiStr);
+void NSISCALL SetUserVariableA(const int varnum, LPCSTR ansiStr);
+
+#else
+// ANSI defs
+
+#define PopStringA(x) popstring(x)
+#define PushStringA(x) pushstring(x)
+#define SetUserVariableA(x,y) setuservariable(x,y)
+
+int  NSISCALL PopStringW(LPWSTR wideStr);
+void NSISCALL PushStringW(LPWSTR wideStr);
+void NSISCALL GetUserVariableW(const int varnum, LPWSTR wideStr);
+void NSISCALL GetUserVariableA(const int varnum, LPSTR ansiStr);
+void NSISCALL SetUserVariableW(const int varnum, LPCWSTR wideStr);
+
+#endif
+
+#ifdef __cplusplus
 }
-
-
-
-#endif/*_EXDLL_H_*/
+#endif
+
+#endif//!___NSIS_PLUGIN__H___
+
+#ifndef COUNTOF
+#define COUNTOF(a) (sizeof(a)/sizeof(a[0]))
+#endif
+
+// minimal tchar.h emulation
+#ifndef _T
+#  define _T TEXT
+#endif
+#if !defined(TCHAR) && !defined(_TCHAR_DEFINED)
+#  ifdef UNICODE
+#    define TCHAR WCHAR
+#  else
+#    define TCHAR char
+#  endif
+#endif
+
+#define isvalidnsisvarindex(varnum) ( ((unsigned int)(varnum)) < (__INST_LAST) )
+
+#define ERRORPRINTF(fmt, ...) \
+  { \
+    char buf[512]; \
+    snprintf(buf, 511, "ERROR: " fmt, ##__VA_ARGS__); \
+    buf[511] = '\0'; \
+    OutputDebugStringA(buf); \
+  }
diff --git a/build-aux/speedo/w32/g4wihelp.c b/build-aux/speedo/w32/g4wihelp.c
index 626f3f12c..bae4b837c 100644
--- a/build-aux/speedo/w32/g4wihelp.c
+++ b/build-aux/speedo/w32/g4wihelp.c
@@ -1,6 +1,7 @@
-/* g4wihelp.c - NSIS Helper DLL used with gpg4win. -*- coding: latin-1; -*-
- * Copyright (C) 2005 g10 Code GmbH
+/* g4wihelp.c - NSIS Helper DLL used with gpg4win.
+ * Copyright (C) 2005, 2023 g10 Code GmbH
  * Copyright (C) 2001 Justin Frankel
+ * Copyright (C) 2016, 2017 Intevation GmbH
  *
  * This software is provided 'as-is', without any express or implied
  * warranty. In no event will the authors be held liable for any
@@ -23,22 +24,41 @@
  ************************************************************
  * The code for the splash screen has been taken from the Splash
  * plugin of the NSIS 2.04 distribution.  That code comes without
- * explicit copyright notices in the source files or author names, it
+ * explicit copyright notices in tyhe source files or author names, it
  * seems that it has been written by Justin Frankel; not sure about
  * the year, though. [wk 2005-11-28]
  *
  * Fixed some compiler warnings. [wk 2014-02-24].
+ * Merged code from GnuPG version.  [wk 2023-04-24].
+ *
+ * Compile time macros:
+ *  ENABLE_SLIDE_SHOW :: Define for Gpg4win.
  */
 
-#include <stdio.h>
 #include <windows.h>
+#include <stdio.h>
+#include <tlhelp32.h>
+#include <psapi.h>
+#include <stdio.h>
+#include <string.h>
 #include "exdll.h"
 
+/* We keep some code here for documentation reasons.  That code has not
+ * yet been converted to the Unicode NSIS plugin API. */
+/* #define ENABLE_SOUND_GADGET 1   */
+/* #define ENABLE_SPLASH_GADGET 1   */
+/* #define ENABLE_SERVICE_MANAGEMENT 1   */
+
+
 static HINSTANCE g_hInstance; /* Our Instance. */
 static HWND g_hwndParent;     /* Handle of parent window or NULL. */
 static HBITMAP g_hbm;         /* Handle of the splash image. */
 static int sleepint;          /* Milliseconds to show the spals image. */
 
+#ifdef ENABLE_SLIDE_SHOW
+void
+slide_stop(HWND hwndParent, int string_size, TCHAR *variables, stack_t **stacktop);
+#endif
 
 /* Standard entry point for DLLs. */
 int WINAPI
@@ -46,6 +66,12 @@ DllMain (HANDLE hinst, DWORD reason, LPVOID reserved)
 {
    if (reason == DLL_PROCESS_ATTACH)
      g_hInstance = hinst;
+   else if (reason == DLL_PROCESS_DETACH)
+     {
+#ifdef ENABLE_SLIDE_SHOW
+       slide_stop (NULL, 0, NULL, NULL);
+#endif
+     }
    return TRUE;
 }
 
@@ -53,7 +79,7 @@ DllMain (HANDLE hinst, DWORD reason, LPVOID reserved)
 
 /* Dummy function for testing. */
 void __declspec(dllexport)
-dummy (HWND hwndParent, int string_size, char *variables,
+dummy (HWND hwndParent, int string_size, LPTSTR variables,
        stack_t **stacktop, extra_parameters_t *extra)
 {
   g_hwndParent = hwndParent;
@@ -67,21 +93,66 @@ dummy (HWND hwndParent, int string_size, char *variables,
   // you should empty the stack of your parameters, and ONLY your
   // parameters.
 
-  // do your stuff here
+  /* Let's dump the variables.  */
   {
-    char buf[1024];
-    snprintf (buf, sizeof buf, "$R0=%s\r\n$R1=%s\r\n",
-              getuservariable(INST_R0),
-              getuservariable(INST_R1));
-    MessageBox (g_hwndParent,buf,0,MB_OK);
-
-    snprintf (buf, sizeof buf,
-             "autoclose    =%d\r\n"
+    char line[512];
+    char *p;
+    const unsigned char *s = (void*)g_variables;
+    int i,j;
+
+    for (i=0; i < string_size* __INST_LAST; i+=32, s += 32)
+      {
+        for (j=0; j < 32; j++)
+          if (s[j])
+            break;
+        if (j != 32)
+          {
+            p = line;
+            *p = 0;
+            snprintf (p, 10, "%05x: ", i);
+            p += strlen (p);
+            for (j=0; j < 32; j++)
+              {
+                snprintf (p, 10, "%02x", s[j]);
+                p += strlen (p);
+              }
+            strcat (p, " |");
+            p += strlen (p);
+            for (j=0; j < 32; j++)
+              {
+                if (s[j] >= 32 && s[j] < 127)
+                  *p = s[j];
+                else
+                  *p = '.';
+                p++;
+              }
+            strcat (p, "|");
+            OutputDebugStringA (line);
+          }
+      }
+  }
+
+
+  {
+    wchar_t buf[1024];
+
+    swprintf(buf, 1024,
+             L"stringsize=%d\r\n$0=%s\r\n$1=%s\r\n$R0=%s\r\n$R1=%s\r\n",
+            string_size,
+            getuservariable(INST_0),
+            getuservariable(INST_1),
+            getuservariable(INST_R0),
+            getuservariable(INST_R1));
+    MessageBoxW(g_hwndParent,buf,0,MB_OK);
+
+    swprintf (buf, 1024,
+             L"autoclose    =%d\r\n"
              "all_user_var =%d\r\n"
              "exec_error   =%d\r\n"
              "abort        =%d\r\n"
              "exec_reboot  =%d\r\n"
              "reboot_called=%d\r\n"
+	     "api_version  =%d\r\n"
              "silent       =%d\r\n"
              "instdir_error=%d\r\n"
              "rtl          =%d\r\n"
@@ -92,30 +163,34 @@ dummy (HWND hwndParent, int string_size, char *variables,
              extra->exec_flags->abort,
              extra->exec_flags->exec_reboot,
              extra->exec_flags->reboot_called,
+             extra->exec_flags->plugin_api_version,
              extra->exec_flags->silent,
              extra->exec_flags->instdir_error,
              extra->exec_flags->rtl,
              extra->exec_flags->errlvl);
-    MessageBox(g_hwndParent,buf,0,MB_OK);
+    MessageBoxW(g_hwndParent,buf,0,MB_OK);
   }
 }
 
 
+
 void __declspec(dllexport)
-runonce (HWND hwndParent, int string_size, char *variables,
+runonce (HWND hwndParent, int string_size, LPTSTR variables,
          stack_t **stacktop, extra_parameters_t *extra)
 {
-  const char *result;
+  LPCWSTR result;
 
   g_hwndParent = hwndParent;
   EXDLL_INIT();
 
-  CreateMutexA (NULL, 0, getuservariable(INST_R0));
-  result = GetLastError ()? "1":"0";
+  CreateMutexW (NULL, 0, getuservariable(INST_R0));
+  result = GetLastError ()? L"1" : L"0";
   setuservariable (INST_R0, result);
 }
 
 
+
+#ifdef ENABLE_SOUND_GADGET
 void __declspec(dllexport)
 playsound (HWND hwndParent, int string_size, char *variables,
            stack_t **stacktop, extra_parameters_t *extra)
@@ -139,8 +214,10 @@ stopsound (HWND hwndParent, int string_size, char *variables,
   EXDLL_INIT();
   PlaySound (NULL, NULL, 0);
 }
+#endif /*ENABLE_SOUND_GADGET*/
 
 
+#ifdef ENABLE_SPLASH_GADGET
 /* Windows procedure to control the splashimage.  This one pauses the
    execution until the sleep time is over or the user closes this
    windows. */
@@ -268,10 +345,10 @@ showsplash (HWND hwndParent, int string_size, char *variables,
     }
   UnregisterClass (classname, g_hInstance);
 }
+#endif /*ENABLE_SPLASH_GADGET*/
 
-
-/* Service Management.  */
 
+#ifdef ENABLE_SERVICE_MANAGEMENT
 /* Use this to report unexpected errors.  FIXME: This is really not
    very descriptive.  */
 void
@@ -626,9 +703,8 @@ service_delete (HWND hwndParent, int string_size, char *variables,
   setuservariable (INST_R0, "0");
   return;
 }
+#endif /*ENABLE_SERVICE_MANAGEMENT*/
 
-
-#include <stdio.h>
 
 /* Extract config file parameters.  FIXME: Not particularly robust.
    We expect some reasonable formatting.  The parser below is very
@@ -644,6 +720,7 @@ void
 config_init (char **keys, char **values, int max)
 {
   /* First, parse the command line.  */
+  LPCWSTR wcmdline;
   char *cmdline;
   char *begin = NULL;
   char *end = NULL;
@@ -655,7 +732,15 @@ config_init (char **keys, char **values, int max)
   *keys = NULL;
   *values = NULL;
 
-  cmdline = getuservariable (INST_CMDLINE);
+  cmdline = malloc (4096);
+  if (!cmdline)
+    return;
+
+  wcmdline = getuservariable (INST_CMDLINE);
+  *cmdline = 0;
+  WideCharToMultiByte(CP_ACP, 0, wcmdline, -1, cmdline, 4095, NULL, NULL);
+  if (!*cmdline)
+    return;
 
   mark = (*cmdline == '"') ? (cmdline++, '"') : ' ';
   while (*cmdline && *cmdline != mark)
@@ -721,6 +806,7 @@ config_init (char **keys, char **values, int max)
 
   conf = fopen (fname, "r");
   free (fname);
+  free (cmdline);
   if (!conf)
     return;
 
@@ -843,7 +929,7 @@ config_lookup (char *key)
 
 
 void __declspec(dllexport)
-config_fetch (HWND hwndParent, int string_size, char *variables,
+config_fetch (HWND hwndParent, int string_size, LPTSTR variables,
 	      stack_t **stacktop, extra_parameters_t *extra)
 {
   char key[256];
@@ -854,23 +940,23 @@ config_fetch (HWND hwndParent, int string_size, char *variables,
   EXDLL_INIT();
 
   /* The expected stack layout: key.  */
-  if (popstring (key, sizeof (key)))
+  if (PopStringNA (key, sizeof (key)))
     err = 1;
   if (err)
     {
-      setuservariable (INST_R0, "");
+      setuservariable (INST_R0, L"");
       return;
     }
 
   value = config_lookup (key);
 
-  setuservariable (INST_R0, value == NULL ? "" : value);
+  SetUserVariableA (INST_R0, value == NULL ? "" : value);
   return;
 }
 
 
 void __declspec(dllexport)
-config_fetch_bool (HWND hwndParent, int string_size, char *variables,
+config_fetch_bool (HWND hwndParent, int string_size, LPTSTR variables,
 		   stack_t **stacktop, extra_parameters_t *extra)
 {
   char key[256];
@@ -882,18 +968,18 @@ config_fetch_bool (HWND hwndParent, int string_size, char *variables,
   EXDLL_INIT();
 
   /* The expected stack layout: key.  */
-  if (popstring (key, sizeof (key)))
+  if (PopStringNA (key, sizeof (key)))
     err = 1;
   if (err)
     {
-      setuservariable (INST_R0, "");
+      setuservariable (INST_R0, L"");
       return;
     }
 
   value = config_lookup (key);
   if (value == NULL || *value == '\0')
     {
-      setuservariable (INST_R0, "");
+      setuservariable (INST_R0, L"");
       return;
     }
 
@@ -903,7 +989,7 @@ config_fetch_bool (HWND hwndParent, int string_size, char *variables,
       || atoi (value) != 0)
     result = 1;
 
-  setuservariable (INST_R0, result == 0 ? "0" : "1");
+  SetUserVariableA (INST_R0, result == 0 ? "0" : "1");
   return;
 }
 
@@ -911,99 +997,107 @@ config_fetch_bool (HWND hwndParent, int string_size, char *variables,
 /* Return a string from the Win32 Registry or NULL in case of error.
    Caller must release the return value.  A NULL for root is an alias
    for HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE in turn.  */
-char *
-read_w32_registry_string (HKEY root, const char *dir, const char *name)
+static wchar_t *
+read_w32_registry_string (HKEY root, const wchar_t *dir, const wchar_t *name)
 {
   HKEY root_key;
   HKEY key_handle;
   DWORD n1, nbytes, type;
-  char *result = NULL;
+  wchar_t *result = NULL;
 
   root_key = root;
-  if (! root_key)
+  if (!root_key)
     root_key = HKEY_CURRENT_USER;
 
-  if( RegOpenKeyEx( root_key, dir, 0, KEY_READ, &key_handle ) )
+  if (RegOpenKeyExW (root_key, dir, 0, KEY_READ, &key_handle))
     {
       if (root)
 	return NULL; /* no need for a RegClose, so return direct */
       /* It seems to be common practise to fall back to HKLM. */
-      if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, dir, 0, KEY_READ, &key_handle) )
+      if (RegOpenKeyExW (HKEY_LOCAL_MACHINE, dir, 0, KEY_READ, &key_handle))
 	return NULL; /* still no need for a RegClose, so return direct */
     }
 
   nbytes = 1;
-  if( RegQueryValueEx( key_handle, name, 0, NULL, NULL, &nbytes ) ) {
-    if (root)
-      goto leave;
-    /* Try to fallback to HKLM also vor a missing value.  */
-    RegCloseKey (key_handle);
-    if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, dir, 0, KEY_READ, &key_handle) )
-      return NULL; /* Nope.  */
-    if (RegQueryValueEx( key_handle, name, 0, NULL, NULL, &nbytes))
-      goto leave;
+  if (RegQueryValueExW (key_handle, name, 0, NULL, NULL, &nbytes))
+    {
+      if (root)
+        goto leave;
+      /* Try to fallback to HKLM also for a missing value.  */
+      RegCloseKey (key_handle);
+      if (RegOpenKeyExW (HKEY_LOCAL_MACHINE, dir, 0, KEY_READ, &key_handle))
+        return NULL; /* Nope.  */
+      if (RegQueryValueExW (key_handle, name, 0, NULL, NULL, &nbytes))
+        goto leave;
   }
 
-  result = malloc( (n1=nbytes+1) );
-
-  if( !result )
-    goto leave;
-  if( RegQueryValueEx( key_handle, name, 0, &type, result, &n1 ) ) {
-    free(result); result = NULL;
+  result = calloc ((n1=nbytes+1), sizeof *result);
+  if (!result)
     goto leave;
-  }
-  result[nbytes] = 0; /* make sure it is really a string  */
+
+  if (RegQueryValueExW (key_handle, name, 0, &type,
+                        (unsigned char *)result, &n1))
+    {
+      free (result);
+      result = NULL;
+      goto leave;
+    }
+  result[nbytes] = 0; /* Make sure it is really a string  */
 
  leave:
-  RegCloseKey( key_handle );
+  RegCloseKey (key_handle);
   return result;
 }
 
 
+/* Registry keys for PATH for HKLM and HKCU.  */
 #define ENV_HK HKEY_LOCAL_MACHINE
-#define ENV_REG "SYSTEM\\CurrentControlSet\\Control\\" \
-    "Session Manager\\Environment"
-  /* The following setting can be used for a per-user setting.  */
+#define ENV_REG     L"SYSTEM\\CurrentControlSet\\Control\\" \
+                           "Session Manager\\Environment"
 #define ENV_HK_USER HKEY_CURRENT_USER
-#define ENV_REG_USER "Environment"
+#define ENV_REG_USER L"Environment"
+
 /* Due to a bug in Windows7 (kb 2685893) we better put a lower limit
-   than 8191 on the maximum length of the PATH variable.  Note, that
-   depending on the used toolchain we used to had a 259 byte limit in
-   the past.  */
+ * than 8191 on the maximum length of the PATH variable.  Note, that
+ * depending on the used toolchain we used to had a 259 byte limit in
+ * the past.
+ * [wk 2023-04-24]: Can this be lifted now that we use the wchar_t API?
+ */
 #define PATH_LENGTH_LIMIT 2047
 
 void __declspec(dllexport)
-path_add (HWND hwndParent, int string_size, char *variables,
+path_add (HWND hwndParent, int string_size, LPTSTR variables,
 	  stack_t **stacktop, extra_parameters_t *extra)
 {
-  char dir[PATH_LENGTH_LIMIT];
-  char is_user_install[2];
-  char *path;
-  char *path_new;
-  int path_new_size;
-  char *comp;
-  const char delims[] = ";";
+  wchar_t dir[PATH_LENGTH_LIMIT];
+  wchar_t is_user_install[2];
+  wchar_t *path;
+  wchar_t *path_new;
+  size_t path_new_size;
+  wchar_t *comp;
+  const wchar_t delims[] = L";";
   int is_user;
   HKEY key_handle = 0;
   HKEY root_key;
-  const char *env_reg;
+  const wchar_t *env_reg;
+  /* wchar_t *tokctx;     Context var for wcstok - not yet needed.  */
 
   g_hwndParent = hwndParent;
   EXDLL_INIT();
 
-  setuservariable (INST_R0, "0");
-
-/*   MessageBox (g_hwndParent, "XXX 1", 0, MB_OK); */
+  setuservariable (INST_R0, L"0");  /* Default return value.  */
 
   /* The expected stack layout: path component.  */
-  if (popstring (dir, sizeof (dir)))
+  if (popstringn (dir, COUNTOF (dir)))
     return;
+  dir[COUNTOF(dir)-1] = 0;
 
   /* The expected stack layout: HKEY component.  */
-  if (popstring (is_user_install, sizeof (is_user_install)))
+  if (popstringn (is_user_install, COUNTOF (is_user_install)))
     return;
+  is_user_install[COUNTOF(is_user_install)-1] = 0;
 
-  if (!strcmp(is_user_install, "1"))
+  if (!wcscmp (is_user_install, L"1"))
     {
       root_key = ENV_HK_USER;
       env_reg = ENV_REG_USER;
@@ -1014,107 +1108,100 @@ path_add (HWND hwndParent, int string_size, char *variables,
       env_reg = ENV_REG;
     }
 
-  path = read_w32_registry_string (root_key, env_reg, "Path");
-
-  if (! path)
+  path = read_w32_registry_string (root_key, env_reg, L"Path");
+  if (!path)
     {
-      path = strdup ("");
+      path = wcsdup (L"");
     }
 
-/*   MessageBox (g_hwndParent, "XXX 3", 0, MB_OK); */
-
   /* Old path plus semicolon plus dir plus terminating nul.  */
-  path_new_size = strlen (path) + 1 + strlen (dir) + 1;
+  path_new_size = wcslen (path) + 1 + wcslen (dir) + 1;
   if (path_new_size > PATH_LENGTH_LIMIT)
     {
-      MessageBox (g_hwndParent, "PATH env variable too big", 0, MB_OK);
+      MessageBox (g_hwndParent, L"PATH env variable too big", 0, MB_OK);
       free (path);
       return;
     }
 
-/*   MessageBox (g_hwndParent, "XXX 4", 0, MB_OK); */
-
-  path_new = malloc (path_new_size);
+  path_new = calloc (path_new_size, sizeof *path_new);
   if (!path_new)
     {
       free (path);
       return;
     }
 
-/*   MessageBox (g_hwndParent, "XXX 5", 0, MB_OK); */
-
-  strcpy (path_new, path);
-  strcat (path_new, ";");
-  strcat (path_new, dir);
-
-/*   MessageBox (g_hwndParent, "XXX 6", 0, MB_OK); */
-/*   MessageBox (g_hwndParent, dir, 0, MB_OK); */
-/*   MessageBox (g_hwndParent, "XXX 7", 0, MB_OK); */
+  wcscpy (path_new, path);
+  wcscat (path_new, L";");
+  wcscat (path_new, dir);
 
   /* Check if the directory already exists in the path.  */
-  comp = strtok (path, delims);
+  comp = wcstok (path, delims/*, &tokctx*/);
   do
     {
-/*       MessageBox (g_hwndParent, comp, 0, MB_OK); */
+      /*       MessageBox (g_hwndParent, comp, 0, MB_OK); */
       if (!comp)
         break;
 
-      if (!strcmp (comp, dir))
+      if (!wcscmp (comp, dir))
 	{
 	  free (path);
 	  free (path_new);
 	  return;
 	}
-      comp = strtok (NULL, delims);
+      comp = wcstok (NULL, delims/*, &tokctx*/);
     }
   while (comp);
   free (path);
 
   /* Update the path key.  */
-  RegCreateKey (root_key, env_reg, &key_handle);
-  RegSetValueEx (key_handle, "Path", 0, REG_EXPAND_SZ,
-		 path_new, path_new_size);
+  RegCreateKeyW (root_key, env_reg, &key_handle);
+  RegSetValueEx (key_handle, L"Path", 0, REG_EXPAND_SZ,
+		 (unsigned char*)path_new,
+                 wcslen (path_new) * sizeof *path_new);
   RegCloseKey (key_handle);
-  SetEnvironmentVariable("PATH", path_new);
+  SetEnvironmentVariableW(L"PATH", path_new);
   free (path_new);
 
 /*   MessageBox (g_hwndParent, "XXX 9", 0, MB_OK); */
 
-  setuservariable (INST_R0, "1");
+  setuservariable (INST_R0, L"1");  /* success.  */
 }
 
 
 void __declspec(dllexport)
-path_remove (HWND hwndParent, int string_size, char *variables,
+path_remove (HWND hwndParent, int string_size, LPTSTR variables,
 	     stack_t **stacktop, extra_parameters_t *extra)
 {
-  char dir[PATH_LENGTH_LIMIT];
-  char is_user_install[2];
-  char *path;
-  char *path_new;
-  int path_new_size;
-  char *comp;
-  const char delims[] = ";";
+  wchar_t dir[PATH_LENGTH_LIMIT];
+  wchar_t is_user_install[2];
+  wchar_t *path;
+  wchar_t *path_new;
+  size_t path_new_size;
+  wchar_t *comp;
+  const wchar_t delims[] = L";";
   HKEY key_handle = 0;
   int changed = 0;
   int count = 0;
   HKEY root_key;
-  const char *env_reg;
+  const wchar_t *env_reg;
+  /* wchar_t *tokctx;     Context var for wcstok - not yet needed.  */
 
   g_hwndParent = hwndParent;
   EXDLL_INIT();
 
-  setuservariable (INST_R0, "0");
+  setuservariable (INST_R0, L"0");
 
   /* The expected stack layout: path component.  */
-  if (popstring (dir, sizeof (dir)))
+  if (popstringn (dir, COUNTOF (dir)))
     return;
+  dir[COUNTOF(dir)-1] = 0;
 
   /* The expected stack layout: HKEY component.  */
-  if (popstring (is_user_install, sizeof (is_user_install)))
+  if (popstringn (is_user_install, COUNTOF (is_user_install)))
     return;
+  is_user_install[COUNTOF(is_user_install)-1] = 0;
 
-  if (!strcmp(is_user_install, "1"))
+  if (!wcscmp (is_user_install, L"1"))
     {
       root_key = ENV_HK_USER;
       env_reg = ENV_REG_USER;
@@ -1125,51 +1212,112 @@ path_remove (HWND hwndParent, int string_size, char *variables,
       env_reg = ENV_REG;
     }
 
-  path = read_w32_registry_string (root_key, env_reg, "Path");
-
+  path = read_w32_registry_string (root_key, env_reg, L"Path");
   if (!path)
     return;
+
   /* Old path plus semicolon plus dir plus terminating nul.  */
-  path_new_size = strlen (path) + 1;
-  path_new = malloc (path_new_size);
+  path_new_size = wcslen (path) + 1;
+  path_new = calloc (path_new_size, sizeof *path_new);
   if (!path_new)
     {
       free (path);
       return;
     }
-  path_new[0] = '\0';
 
   /* Compose the new path.  */
-  comp = strtok (path, delims);
+  comp = wcstok (path, delims/*, &tokctx*/);
   do
     {
-      if (strcmp (comp, dir))
+      if (wcscmp (comp, dir))
 	{
-	  if (count != 0)
-	    strcat (path_new, ";");
-	  strcat (path_new, comp);
+	  if (count)
+	    wcscat (path_new, L";");
+	  wcscat (path_new, comp);
 	  count++;
 	}
       else
 	changed = 1;
-
-      comp = strtok (NULL, delims);
     }
-  while (comp);
+  while ((comp = wcstok (NULL, delims/*, &tokctx*/)));
   free (path);
 
-  if (! changed)
+  if (!changed)
     {
       free (path_new);
       return;
     }
 
   /* Set a key for our CLSID.  */
-  RegCreateKey (root_key, env_reg, &key_handle);
-  RegSetValueEx (key_handle, "Path", 0, REG_EXPAND_SZ,
-		 path_new, path_new_size);
+  RegCreateKeyW (root_key, env_reg, &key_handle);
+  RegSetValueEx (key_handle, L"Path", 0, REG_EXPAND_SZ,
+		 (unsigned char*)path_new,
+                 wcslen (path_new) * sizeof *path_new);
   RegCloseKey (key_handle);
   free (path_new);
 
-  setuservariable (INST_R0, "1");
+  setuservariable (INST_R0, L"1");  /* success */
+}
+
+
+/** @brief Kill processes with the name name.
+ *
+ * This function tries to kill a process using ExitProcess.
+ *
+ * If it does not work it does not work. No return values.
+ * The intention is to make an effort to kill something during
+ * installation / uninstallation.
+ *
+ * The function signature is explained by NSIS.
+ */
+void __declspec(dllexport) __cdecl KillProc(HWND hwndParent,
+                                            int string_size,
+                                            char *variables,
+                                            stack_t **stacktop)
+{
+  HANDLE h;
+  PROCESSENTRY32 pe32;
+
+  if (!stacktop || !*stacktop || !(*stacktop)->text)
+    {
+      ERRORPRINTF ("Invalid call to KillProc.");
+      return;
+    }
+
+
+  h = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0);
+  if (h == INVALID_HANDLE_VALUE)
+    {
+      ERRORPRINTF ("Failed to create Toolhelp snapshot");
+      return;
+    }
+  pe32.dwSize = sizeof (PROCESSENTRY32);
+
+  if (!Process32First (h, &pe32))
+    {
+      ERRORPRINTF ("Failed to get first process");
+      CloseHandle (h);
+      return;
+    }
+
+  do
+    {
+      if (!wcscmp ((*stacktop)->text, pe32.szExeFile))
+        {
+          HANDLE hProc = OpenProcess (PROCESS_ALL_ACCESS, FALSE,
+                                      pe32.th32ProcessID);
+          if (!hProc)
+            {
+              ERRORPRINTF ("Failed to open process handle.");
+              continue;
+            }
+          if (!TerminateProcess (hProc, 1))
+            {
+              ERRORPRINTF ("Failed to terminate process.");
+            }
+          CloseHandle (hProc);
+        }
+    }
+  while (Process32Next (h, &pe32));
+  CloseHandle (h);
 }
diff --git a/build-aux/speedo/w32/inst.nsi b/build-aux/speedo/w32/inst.nsi
index 42fa2fb58..665c65b02 100644
--- a/build-aux/speedo/w32/inst.nsi
+++ b/build-aux/speedo/w32/inst.nsi
@@ -1462,8 +1462,7 @@ Function .onInit
   ;;!define MUI_LANGDLL_ALWAYSSHOW
   !insertmacro MUI_LANGDLL_DISPLAY
 
-  # Temporay disabled until we have fixed the DLL issue (wk 2023-04-05)
-  # Call G4wRunOnce
+  Call G4wRunOnce
 
   SetOutPath $TEMP
 #!ifdef SOURCES