2 * Registry editing UI functions.
4 * Copyright (C) 2003 Dimitrie O. Paun
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #define WIN32_LEAN_AND_MEAN /* Exclude rarely-used stuff from Windows headers */
39 typedef enum _EDIT_MODE
46 static const TCHAR
* editValueName
;
47 static TCHAR
* stringValueData
;
48 static PVOID binValueData
;
49 static DWORD dwordValueData
;
50 static DWORD valueDataLen
;
51 static EDIT_MODE dwordEditMode
= EDIT_MODE_HEX
;
54 void error(HWND hwnd
, INT resId
, ...)
62 hInstance
= GetModuleHandle(0);
64 if (!LoadString(hInstance
, IDS_ERROR
, title
, COUNT_OF(title
)))
65 _tcscpy(title
, _T("Error"));
67 if (!LoadString(hInstance
, resId
, errfmt
, COUNT_OF(errfmt
)))
68 _tcscpy(errfmt
, _T("Unknown error string!"));
71 _vsntprintf(errstr
, COUNT_OF(errstr
), errfmt
, ap
);
74 MessageBox(hwnd
, errstr
, title
, MB_OK
| MB_ICONERROR
);
77 void warning(HWND hwnd
, INT resId
, ...)
85 hInstance
= GetModuleHandle(0);
87 if (!LoadString(hInstance
, IDS_WARNING
, title
, COUNT_OF(title
)))
88 _tcscpy(title
, _T("Warning"));
90 if (!LoadString(hInstance
, resId
, errfmt
, COUNT_OF(errfmt
)))
91 _tcscpy(errfmt
, _T("Unknown error string!"));
94 _vsntprintf(errstr
, COUNT_OF(errstr
), errfmt
, ap
);
97 MessageBox(hwnd
, errstr
, title
, MB_OK
| MB_ICONSTOP
);
100 INT_PTR CALLBACK
modify_string_dlgproc(HWND hwndDlg
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
108 if(editValueName
&& _tcscmp(editValueName
, _T("")))
110 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, editValueName
);
115 LoadString(hInst
, IDS_DEFAULT_VALUE_NAME
, buffer
, sizeof(buffer
)/sizeof(TCHAR
));
116 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, buffer
);
118 SetDlgItemText(hwndDlg
, IDC_VALUE_DATA
, stringValueData
);
119 SetFocus(GetDlgItem(hwndDlg
, IDC_VALUE_DATA
));
122 switch (LOWORD(wParam
))
125 if ((hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
)))
127 if ((len
= GetWindowTextLength(hwndValue
)))
131 if ((valueData
= HeapReAlloc(GetProcessHeap(), 0, stringValueData
, (len
+ 1) * sizeof(TCHAR
))))
133 stringValueData
= valueData
;
134 if (!GetWindowText(hwndValue
, stringValueData
, len
+ 1))
135 *stringValueData
= 0;
140 if ((valueData
= HeapAlloc(GetProcessHeap(), 0, (len
+ 1) * sizeof(TCHAR
))))
142 stringValueData
= valueData
;
143 if (!GetWindowText(hwndValue
, stringValueData
, len
+ 1))
144 *stringValueData
= 0;
151 *stringValueData
= 0;
154 EndDialog(hwndDlg
, IDOK
);
157 EndDialog(hwndDlg
, IDCANCEL
);
165 INT_PTR CALLBACK
modify_multi_string_dlgproc(HWND hwndDlg
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
173 if(editValueName
&& _tcscmp(editValueName
, _T("")))
175 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, editValueName
);
180 LoadString(hInst
, IDS_DEFAULT_VALUE_NAME
, buffer
, sizeof(buffer
)/sizeof(TCHAR
));
181 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, buffer
);
183 SetDlgItemText(hwndDlg
, IDC_VALUE_DATA
, stringValueData
);
184 SetFocus(GetDlgItem(hwndDlg
, IDC_VALUE_DATA
));
187 switch (LOWORD(wParam
))
190 if ((hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
)))
192 if ((len
= GetWindowTextLength(hwndValue
)))
196 if ((valueData
= HeapReAlloc(GetProcessHeap(), 0, stringValueData
, (len
+ 1) * sizeof(TCHAR
))))
198 stringValueData
= valueData
;
199 if (!GetWindowText(hwndValue
, stringValueData
, len
+ 1))
200 *stringValueData
= 0;
205 if ((valueData
= HeapAlloc(GetProcessHeap(), 0, (len
+ 1) * sizeof(TCHAR
))))
207 stringValueData
= valueData
;
208 if (!GetWindowText(hwndValue
, stringValueData
, len
+ 1))
209 *stringValueData
= 0;
216 *stringValueData
= 0;
219 EndDialog(hwndDlg
, IDOK
);
222 EndDialog(hwndDlg
, IDCANCEL
);
230 LRESULT CALLBACK
DwordEditSubclassProc(HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
234 oldwndproc
= (WNDPROC
)GetWindowLongPtr(hwnd
, GWL_USERDATA
);
239 if (dwordEditMode
== EDIT_MODE_DEC
)
241 if (isdigit(wParam
& 0xff))
250 else if (dwordEditMode
== EDIT_MODE_HEX
)
252 if (isxdigit(wParam
& 0xff))
267 return CallWindowProc(oldwndproc
, hwnd
, uMsg
, wParam
, lParam
);
271 INT_PTR CALLBACK
modify_dword_dlgproc(HWND hwndDlg
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
277 TCHAR ValueString
[32];
284 dwordEditMode
= EDIT_MODE_HEX
;
286 /* subclass the edit control */
287 hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
);
288 oldproc
= (WNDPROC
)GetWindowLongPtr(hwndValue
, GWL_WNDPROC
);
289 SetWindowLongPtr(hwndValue
, GWL_USERDATA
, (DWORD_PTR
)oldproc
);
290 SetWindowLongPtr(hwndValue
, GWL_WNDPROC
, (DWORD_PTR
)DwordEditSubclassProc
);
292 if(editValueName
&& _tcscmp(editValueName
, _T("")))
294 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, editValueName
);
299 LoadString(hInst
, IDS_DEFAULT_VALUE_NAME
, buffer
, sizeof(buffer
)/sizeof(TCHAR
));
300 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, buffer
);
302 CheckRadioButton (hwndDlg
, IDC_FORMAT_HEX
, IDC_FORMAT_DEC
, IDC_FORMAT_HEX
);
303 _stprintf (ValueString
, _T("%lx"), dwordValueData
);
304 SetDlgItemText(hwndDlg
, IDC_VALUE_DATA
, ValueString
);
305 SetFocus(GetDlgItem(hwndDlg
, IDC_VALUE_DATA
));
309 switch (LOWORD(wParam
))
312 if (HIWORD(wParam
) == BN_CLICKED
&& dwordEditMode
== EDIT_MODE_DEC
)
314 dwordEditMode
= EDIT_MODE_HEX
;
315 if ((hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
)))
317 if ((len
= GetWindowTextLength(hwndValue
)))
319 if (!GetWindowText(hwndValue
, ValueString
, 32))
325 Value
= _tcstoul (ValueString
, &Remainder
, 10);
333 _stprintf (ValueString
, _T("%lx"), Value
);
334 SetDlgItemText(hwndDlg
, IDC_VALUE_DATA
, ValueString
);
340 if (HIWORD(wParam
) == BN_CLICKED
&& dwordEditMode
== EDIT_MODE_HEX
)
342 dwordEditMode
= EDIT_MODE_DEC
;
343 if ((hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
)))
345 if ((len
= GetWindowTextLength(hwndValue
)))
347 if (!GetWindowText(hwndValue
, ValueString
, 32))
353 Value
= _tcstoul (ValueString
, &Remainder
, 16);
361 _stprintf (ValueString
, _T("%lu"), Value
);
362 SetDlgItemText(hwndDlg
, IDC_VALUE_DATA
, ValueString
);
368 if ((hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
)))
370 if ((len
= GetWindowTextLength(hwndValue
)))
372 if (!GetWindowText(hwndValue
, ValueString
, 32))
374 EndDialog(hwndDlg
, IDCANCEL
);
378 Base
= (dwordEditMode
== EDIT_MODE_HEX
) ? 16 : 10;
379 dwordValueData
= _tcstoul (ValueString
, &Remainder
, Base
);
383 EndDialog(hwndDlg
, IDCANCEL
);
387 EndDialog(hwndDlg
, IDOK
);
391 EndDialog(hwndDlg
, IDCANCEL
);
399 INT_PTR CALLBACK
modify_binary_dlgproc(HWND hwndDlg
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
407 if(editValueName
&& _tcscmp(editValueName
, _T("")))
409 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, editValueName
);
414 LoadString(hInst
, IDS_DEFAULT_VALUE_NAME
, buffer
, sizeof(buffer
)/sizeof(TCHAR
));
415 SetDlgItemText(hwndDlg
, IDC_VALUE_NAME
, buffer
);
417 hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
);
418 HexEdit_LoadBuffer(hwndValue
, binValueData
, valueDataLen
);
419 /* reset the hex edit control's font */
420 SendMessage(hwndValue
, WM_SETFONT
, 0, 0);
424 switch (LOWORD(wParam
))
427 if ((hwndValue
= GetDlgItem(hwndDlg
, IDC_VALUE_DATA
)))
429 len
= HexEdit_GetBufferSize(hwndValue
);
430 if (len
!= valueDataLen
&& len
> 0)
432 binValueData
= HeapReAlloc(GetProcessHeap(), 0, binValueData
, len
);
436 HexEdit_CopyBuffer(hwndValue
, binValueData
, len
);
440 EndDialog(hwndDlg
, IDOK
);
443 EndDialog(hwndDlg
, IDCANCEL
);
451 BOOL
ModifyValue(HWND hwnd
, HKEY hKey
, LPCTSTR valueName
, BOOL EditBin
)
460 editValueName
= valueName
;
462 lRet
= RegQueryValueEx(hKey
, valueName
, 0, &type
, 0, &valueDataLen
);
463 if (lRet
!= ERROR_SUCCESS
&& (!_tcscmp(valueName
, _T("")) || valueName
== NULL
))
465 lRet
= ERROR_SUCCESS
; /* Allow editing of (Default) values which don't exist */
468 stringValueData
= NULL
;
472 if (lRet
!= ERROR_SUCCESS
)
474 error(hwnd
, IDS_BAD_VALUE
, valueName
);
478 if (EditBin
== FALSE
&& ((type
== REG_SZ
) || (type
== REG_EXPAND_SZ
)))
480 if (valueDataLen
> 0)
482 if (!(stringValueData
= HeapAlloc(GetProcessHeap(), 0, valueDataLen
)))
484 error(hwnd
, IDS_TOO_BIG_VALUE
, valueDataLen
);
487 lRet
= RegQueryValueEx(hKey
, valueName
, 0, 0, (LPBYTE
)stringValueData
, &valueDataLen
);
488 if (lRet
!= ERROR_SUCCESS
)
490 error(hwnd
, IDS_BAD_VALUE
, valueName
);
496 stringValueData
= NULL
;
499 if (DialogBox(0, MAKEINTRESOURCE(IDD_EDIT_STRING
), hwnd
, modify_string_dlgproc
) == IDOK
)
503 lRet
= RegSetValueEx(hKey
, valueName
, 0, type
, (LPBYTE
)stringValueData
, (_tcslen(stringValueData
) + 1) * sizeof(TCHAR
));
507 lRet
= RegSetValueEx(hKey
, valueName
, 0, type
, NULL
, 0);
509 if (lRet
== ERROR_SUCCESS
)
513 else if (EditBin
== FALSE
&& type
== REG_MULTI_SZ
)
515 if (valueDataLen
> 0)
517 DWORD llen
, listlen
, nl_len
;
518 LPTSTR src
, lines
= NULL
;
520 if (!(stringValueData
= HeapAlloc(GetProcessHeap(), 0, valueDataLen
)))
522 error(hwnd
, IDS_TOO_BIG_VALUE
, valueDataLen
);
525 lRet
= RegQueryValueEx(hKey
, valueName
, 0, 0, (LPBYTE
)stringValueData
, &valueDataLen
);
526 if (lRet
!= ERROR_SUCCESS
)
528 error(hwnd
, IDS_BAD_VALUE
, valueName
);
532 /* convert \0 to \r\n */
533 src
= stringValueData
;
534 nl_len
= _tcslen(_T("\r\n")) * sizeof(TCHAR
);
535 listlen
= sizeof(TCHAR
);
536 lines
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, listlen
+ sizeof(TCHAR
));
537 while(*src
!= _T('\0'))
542 listlen
+= (llen
* sizeof(TCHAR
)) + nl_len
;
543 lines
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, lines
, listlen
);
545 _tcscat(lines
, _T("\r\n"));
548 HeapFree(GetProcessHeap(), 0, stringValueData
);
549 stringValueData
= lines
;
553 stringValueData
= NULL
;
556 if (DialogBox(0, MAKEINTRESOURCE(IDD_EDIT_MULTI_STRING
), hwnd
, modify_multi_string_dlgproc
) == IDOK
)
560 /* convert \r\n to \0 */
561 BOOL EmptyLines
= FALSE
;
562 LPTSTR src
, lines
, nl
;
563 DWORD linechars
, buflen
, c_nl
, dest
;
565 src
= stringValueData
;
566 buflen
= sizeof(TCHAR
);
567 lines
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, buflen
+ sizeof(TCHAR
));
568 c_nl
= _tcslen(_T("\r\n"));
570 while(*src
!= _T('\0'))
572 if((nl
= _tcsstr(src
, _T("\r\n"))))
574 linechars
= nl
- src
;
584 linechars
= _tcslen(src
);
588 buflen
+= ((linechars
+ 1) * sizeof(TCHAR
));
589 lines
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, lines
, buflen
);
590 memcpy((lines
+ dest
), src
, linechars
* sizeof(TCHAR
));
592 lines
[dest
++] = _T('\0');
598 src
+= linechars
+ (nl
!= NULL
? c_nl
: 0);
600 lines
[++dest
] = _T('\0');
604 warning(hwnd
, IDS_MULTI_SZ_EMPTY_STRING
);
607 lRet
= RegSetValueEx(hKey
, valueName
, 0, type
, (LPBYTE
)lines
, buflen
);
608 HeapFree(GetProcessHeap(), 0, lines
);
612 lRet
= RegSetValueEx(hKey
, valueName
, 0, type
, NULL
, 0);
614 if (lRet
== ERROR_SUCCESS
)
618 else if (EditBin
== FALSE
&& type
== REG_DWORD
)
620 lRet
= RegQueryValueEx(hKey
, valueName
, 0, 0, (LPBYTE
)&dwordValueData
, &valueDataLen
);
621 if (lRet
!= ERROR_SUCCESS
)
623 error(hwnd
, IDS_BAD_VALUE
, valueName
);
627 if (DialogBox(0, MAKEINTRESOURCE(IDD_EDIT_DWORD
), hwnd
, modify_dword_dlgproc
) == IDOK
)
629 lRet
= RegSetValueEx(hKey
, valueName
, 0, type
, (LPBYTE
)&dwordValueData
, sizeof(DWORD
));
630 if (lRet
== ERROR_SUCCESS
)
634 else if (EditBin
== TRUE
|| type
== REG_NONE
|| type
== REG_BINARY
)
638 int len_vname
= lstrlen(valueName
);
642 if(!(u_valuename
= HeapAlloc(GetProcessHeap(), 0, (len_vname
+ 1) * sizeof(WCHAR
))))
644 error(hwnd
, IDS_TOO_BIG_VALUE
, len_vname
);
647 /* convert the ansi value name to an unicode string */
648 MultiByteToWideChar(CP_ACP
, 0, valueName
, -1, u_valuename
, len_vname
+ 1);
649 valueDataLen
*= sizeof(WCHAR
);
656 if(!(binValueData
= HeapAlloc(GetProcessHeap(), 0, valueDataLen
)))
658 error(hwnd
, IDS_TOO_BIG_VALUE
, valueDataLen
);
662 /* force to use the unicode version, so editing strings in binary mode is correct */
663 lRet
= RegQueryValueExW(hKey
,
669 0, 0, (LPBYTE
)binValueData
, &valueDataLen
);
670 if (lRet
!= ERROR_SUCCESS
)
672 HeapFree(GetProcessHeap(), 0, binValueData
);
675 HeapFree(GetProcessHeap(), 0, u_valuename
);
677 error(hwnd
, IDS_BAD_VALUE
, valueName
);
686 if (DialogBox(0, MAKEINTRESOURCE(IDD_EDIT_BIN_DATA
), hwnd
, modify_binary_dlgproc
) == IDOK
)
688 /* force to use the unicode version, so editing strings in binary mode is correct */
689 lRet
= RegSetValueExW(hKey
,
695 0, type
, (LPBYTE
)binValueData
, valueDataLen
);
696 if (lRet
== ERROR_SUCCESS
)
699 if(binValueData
!= NULL
)
700 HeapFree(GetProcessHeap(), 0, binValueData
);
703 HeapFree(GetProcessHeap(), 0, u_valuename
);
708 error(hwnd
, IDS_UNSUPPORTED_TYPE
, type
);
713 HeapFree(GetProcessHeap(), 0, stringValueData
);
714 stringValueData
= NULL
;