From bd45dfe1cba9b4d726dc838cea5b6cccd5150e2c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bart=C5=82omiej=20=22Magnetic-Fox=22=20W=C4=99grzyn?=
 <magnetic-fox@hotmail.com>
Date: Fri, 24 Jan 2025 19:34:44 +0100
Subject: [PATCH] Discovering WinAPI's DialogBoxParam procedure

---
 main.cpp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/main.cpp b/main.cpp
index 009a5c6..6fd4a0d 100644
--- a/main.cpp
+++ b/main.cpp
@@ -125,6 +125,16 @@ long int inline MakeDialogBox(HWND hwnd, unsigned int type, void* procedure) {
     FreeProcInstance(proc);
     return result;
 }
+
+long int inline MakeDialogBoxParam(HWND hwnd, unsigned int type, void* procedure, LPARAM parameter) {
+    long int result;
+    HANDLE instHandle=(HINSTANCE)GetWindowWord(hwnd,GWW_HINSTANCE);
+    FARPROC proc=MakeProcInstance((FARPROC)procedure, instHandle);
+    result=DialogBoxParam(instHandle, MAKEINTRESOURCE(type), hwnd, (DLGPROC)proc, parameter);
+    FreeProcInstance(proc);
+    return result;
+}
+
 /*
 HHOOK inline MakeSetWindowsHook(HWND hwnd, FARPROC &proc, int hookType, void* procedure) {
     HANDLE instHandle=(HINSTANCE)GetWindowWord(hwnd,GWW_HINSTANCE);
@@ -532,7 +542,7 @@ LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) {
                     }
                     break;
                 case ID_BUTTON4:
-                    ShowInteger(MakeDialogBox(hwnd,IDD_DIALOG1,DlgProc));
+                    ShowInteger(MakeDialogBoxParam(hwnd,IDD_DIALOG1,DlgProc,1987));
                     break;
                 case ID_BUTTON7:
                     createSecondWindow(hwnd,winMem,0);
@@ -697,6 +707,9 @@ LRESULT CALLBACK WndProc2(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) {
 BOOL CALLBACK DlgProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) {
     switch(msg) {
         case WM_INITDIALOG:
+            if(lParam!=0) {
+                ShowInteger(lParam);
+            }
             if(Ctl3dEnabled()) {
                 unsigned int ctlRegs=CTL3D_ALL;
                 Ctl3dSubclassDlg(hwnd,ctlRegs);