4 * Copyright 2006 Piotr Caban
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 static WCHAR wszRegEdit[] = { 'r','e','g','e','d','i','t','.','e','x','e','\0' };
25 static WCHAR wszFormat[] = { '<','o','b','j','e','c','t','\n',' ',' ',' ',
26 'c','l','a','s','s','i','d','=','\"','c','l','s','i','d',':','%','s','\"','\n',
27 '>','\n','<','/','o','b','j','e','c','t','>','\0' };
29 INT_PTR CALLBACK SysConfProc(HWND hDlgWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
32 WCHAR buffer[MAX_LOAD_STRING];
35 WCHAR wszReg[] = { 'S','o','f','t','w','a','r','e','\\',
36 'M','i','c','r','o','s','o','f','t','\\','O','L','E','\\','\0' };
37 WCHAR wszEnableDCOM[] = { 'E','n','a','b','l','e','D','C','O','M','\0' };
38 WCHAR wszEnableRemote[] = { 'E','n','a','b','l','e',
39 'R','e','m','o','t','e','C','o','n','n','e','c','t','\0' };
40 WCHAR wszYes[] = { 'Y', '\0' };
41 WCHAR wszNo[] = { 'N', '\0' };
46 if(RegOpenKey(HKEY_LOCAL_MACHINE, wszReg, &hKey) != ERROR_SUCCESS)
47 RegCreateKey(HKEY_LOCAL_MACHINE, wszReg, &hKey);
49 bufSize = sizeof(buffer);
50 if(RegGetValue(hKey, NULL, wszEnableDCOM, RRF_RT_REG_SZ,
51 NULL, buffer, &bufSize) != ERROR_SUCCESS)
53 bufSize = sizeof(wszYes);
54 RegSetValueEx(hKey, wszEnableDCOM, 0, REG_SZ, (BYTE*)wszYes, bufSize);
57 CheckDlgButton(hDlgWnd, IDC_ENABLEDCOM,
58 buffer[0]=='Y' ? BST_CHECKED : BST_UNCHECKED);
60 bufSize = sizeof(buffer);
61 if(RegGetValue(hKey, NULL, wszEnableRemote, RRF_RT_REG_SZ,
62 NULL, buffer, &bufSize) != ERROR_SUCCESS)
64 bufSize = sizeof(wszYes);
65 RegSetValueEx(hKey, wszEnableRemote, 0, REG_SZ, (BYTE*)wszYes, bufSize);
68 CheckDlgButton(hDlgWnd, IDC_ENABLEREMOTE,
69 buffer[0]=='Y' ? BST_CHECKED : BST_UNCHECKED);
74 switch(LOWORD(wParam)) {
76 bufSize = sizeof(wszYes);
78 RegOpenKey(HKEY_LOCAL_MACHINE, wszReg, &hKey);
80 RegSetValueEx(hKey, wszEnableDCOM, 0, REG_SZ,
81 IsDlgButtonChecked(hDlgWnd, IDC_ENABLEDCOM) == BST_CHECKED ?
82 (BYTE*)wszYes : (BYTE*)wszNo, bufSize);
84 RegSetValueEx(hKey, wszEnableRemote, 0, REG_SZ,
85 IsDlgButtonChecked(hDlgWnd, IDC_ENABLEREMOTE) == BST_CHECKED ?
86 (BYTE*)wszYes : (BYTE*)wszNo, bufSize);
90 EndDialog(hDlgWnd, IDOK);
93 EndDialog(hDlgWnd, IDCANCEL);
101 INT_PTR CALLBACK CreateInstOnProc(HWND hDlgWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
108 switch(LOWORD(wParam)) {
110 memset(globals.wszMachineName, 0, sizeof(WCHAR[MAX_LOAD_STRING]));
111 hEdit = GetDlgItem(hDlgWnd, IDC_MACHINE);
113 if (GetWindowTextLength(hEdit)>0)
114 GetWindowText(hEdit, globals.wszMachineName, MAX_LOAD_STRING);
116 EndDialog(hDlgWnd, IDOK);
119 EndDialog(hDlgWnd, IDCANCEL);
127 static void InitOpenFileName(HWND hWnd, OPENFILENAME *pofn, WCHAR *wszFilter,
128 WCHAR *wszTitle, WCHAR *wszFileName)
130 memset(pofn, 0, sizeof(OPENFILENAME));
131 pofn->lStructSize = sizeof(OPENFILENAME);
132 pofn->hwndOwner = hWnd;
133 pofn->hInstance = globals.hMainInst;
135 pofn->lpstrTitle = wszTitle;
136 pofn->lpstrFilter = wszFilter;
137 pofn->nFilterIndex = 0;
138 pofn->lpstrFile = wszFileName;
139 pofn->nMaxFile = MAX_LOAD_STRING;
140 pofn->Flags = OFN_HIDEREADONLY;
143 static void CopyClsid(HTREEITEM item)
147 memset(&tvi, 0, sizeof(TVITEM));
149 tvi.cchTextMax = MAX_LOAD_STRING;
150 SendMessage(globals.hTree, TVM_GETITEM, 0, (LPARAM)&tvi);
152 if(OpenClipboard(globals.hMainWnd) && EmptyClipboard() && tvi.lParam)
154 HANDLE hClipData = GlobalAlloc(GHND, sizeof(WCHAR[MAX_LOAD_STRING]));
155 LPVOID pLoc = GlobalLock(hClipData);
157 lstrcpyW(pLoc, ((ITEM_INFO *)tvi.lParam)->clsid);
158 GlobalUnlock(hClipData);
159 hClipData = SetClipboardData(CF_UNICODETEXT, hClipData);
164 static void CopyHTMLTag(HTREEITEM item)
168 memset(&tvi, 0, sizeof(TVITEM));
170 tvi.cchTextMax = MAX_LOAD_STRING;
171 SendMessage(globals.hTree, TVM_GETITEM, 0, (LPARAM)&tvi);
173 if(OpenClipboard(globals.hMainWnd) && EmptyClipboard() && tvi.lParam)
175 HANDLE hClipData = GlobalAlloc(GHND, sizeof(WCHAR[MAX_LOAD_STRING]));
176 LPVOID pLoc = GlobalLock(hClipData);
177 int clsidLen = lstrlenW(((ITEM_INFO *)tvi.lParam)->clsid)-1;
179 ((ITEM_INFO *)tvi.lParam)->clsid[clsidLen] = '\0';
180 wsprintfW(pLoc, wszFormat, ((ITEM_INFO *)tvi.lParam)->clsid+1);
181 ((ITEM_INFO *)tvi.lParam)->clsid[clsidLen] = '}';
183 GlobalUnlock(hClipData);
184 hClipData = SetClipboardData(CF_UNICODETEXT, hClipData);
189 static void ResizeChild(void)
191 RECT client, stat, tool;
193 MoveWindow(globals.hStatusBar, 0, 0, 0, 0, TRUE);
194 MoveWindow(globals.hToolBar, 0, 0, 0, 0, TRUE);
196 if(IsWindowVisible(globals.hStatusBar))
197 GetClientRect(globals.hStatusBar, &stat);
198 else stat.bottom = 0;
200 if(IsWindowVisible(globals.hToolBar))
202 GetClientRect(globals.hToolBar, &tool);
205 else tool.bottom = 0;
207 GetClientRect(globals.hMainWnd, &client);
208 MoveWindow(globals.hPaneWnd, 0, tool.bottom,
209 client.right, client.bottom-tool.bottom-stat.bottom, TRUE);
212 void RefreshMenu(HTREEITEM item)
216 HMENU hMenu = GetMenu(globals.hMainWnd);
218 memset(&tvi, 0, sizeof(TVITEM));
220 SendMessage(globals.hTree, TVM_GETITEM, 0, (LPARAM)&tvi);
222 parent = TreeView_GetParent(globals.hTree, item);
224 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_CREATEINST, FALSE);
225 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_RELEASEINST, FALSE);
226 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_VIEW, FALSE);
228 if(tvi.lParam && ((ITEM_INFO *)tvi.lParam)->cFlag&SHOWALL)
230 EnableMenuItem(hMenu, IDM_COPYCLSID, MF_ENABLED);
231 EnableMenuItem(hMenu, IDM_HTMLTAG, MF_ENABLED);
232 EnableMenuItem(hMenu, IDM_VIEW, MF_GRAYED);
234 if(!((ITEM_INFO *)tvi.lParam)->loaded)
236 EnableMenuItem(hMenu, IDM_CREATEINST, MF_ENABLED);
237 EnableMenuItem(hMenu, IDM_CREATEINSTON, MF_ENABLED);
238 EnableMenuItem(hMenu, IDM_RELEASEINST, MF_GRAYED);
239 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_CREATEINST, TRUE);
243 EnableMenuItem(hMenu, IDM_CREATEINST, MF_GRAYED);
244 EnableMenuItem(hMenu, IDM_CREATEINSTON, MF_GRAYED);
245 EnableMenuItem(hMenu, IDM_RELEASEINST, MF_ENABLED);
246 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_RELEASEINST, TRUE);
249 else if(tvi.lParam &&
250 (((ITEM_INFO *)tvi.lParam)->cFlag&INTERFACE || parent==tree.hTL))
252 EnableMenuItem(hMenu, IDM_TYPEINFO, MF_GRAYED);
253 EnableMenuItem(hMenu, IDM_CREATEINST, MF_GRAYED);
254 EnableMenuItem(hMenu, IDM_CREATEINSTON, MF_GRAYED);
255 EnableMenuItem(hMenu, IDM_RELEASEINST, MF_GRAYED);
256 EnableMenuItem(hMenu, IDM_COPYCLSID, MF_ENABLED);
257 EnableMenuItem(hMenu, IDM_HTMLTAG, MF_GRAYED);
258 EnableMenuItem(hMenu, IDM_VIEW, MF_ENABLED);
259 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_VIEW, TRUE);
263 EnableMenuItem(hMenu, IDM_TYPEINFO, MF_GRAYED);
264 EnableMenuItem(hMenu, IDM_CREATEINST, MF_GRAYED);
265 EnableMenuItem(hMenu, IDM_CREATEINSTON, MF_GRAYED);
266 EnableMenuItem(hMenu, IDM_RELEASEINST, MF_GRAYED);
267 EnableMenuItem(hMenu, IDM_COPYCLSID, MF_GRAYED);
268 EnableMenuItem(hMenu, IDM_HTMLTAG, MF_GRAYED);
269 EnableMenuItem(hMenu, IDM_VIEW, MF_GRAYED);
272 if(parent==tree.hAID || parent==tree.hGBCC)
273 EnableMenuItem(hMenu, IDM_COPYCLSID, MF_ENABLED);
276 static int MenuCommand(WPARAM wParam, HWND hWnd)
280 WCHAR wszAbout[MAX_LOAD_STRING];
281 WCHAR wszAboutVer[MAX_LOAD_STRING];
286 LoadString(globals.hMainInst, IDS_ABOUT, wszAbout,
287 sizeof(wszAbout)/sizeof(wszAbout[0]));
288 LoadString(globals.hMainInst, IDS_ABOUTVER, wszAboutVer,
289 sizeof(wszAboutVer)/sizeof(wszAboutVer[0]));
290 ShellAbout(hWnd, wszAbout, wszAboutVer, NULL);
293 hSelect = TreeView_GetSelection(globals.hTree);
297 hSelect = TreeView_GetSelection(globals.hTree);
298 CopyHTMLTag(hSelect);
301 hSelect = TreeView_GetSelection(globals.hTree);
302 CreateInst(hSelect, NULL);
303 SendMessage(globals.hTree, TVM_EXPAND, TVE_EXPAND, (LPARAM)hSelect);
305 case IDM_CREATEINSTON:
306 if(DialogBox(0, MAKEINTRESOURCE(DLG_CREATEINSTON),
307 hWnd, CreateInstOnProc) == IDCANCEL) break;
308 hSelect = TreeView_GetSelection(globals.hTree);
309 CreateInst(hSelect, globals.wszMachineName);
310 SendMessage(globals.hTree, TVM_EXPAND, TVE_EXPAND, (LPARAM)hSelect);
312 case IDM_RELEASEINST:
313 hSelect = TreeView_GetSelection(globals.hTree);
314 ReleaseInst(hSelect);
315 RefreshMenu(hSelect);
316 RefreshDetails(hSelect);
319 globals.bExpert = !globals.bExpert;
320 CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
321 globals.bExpert ? MF_CHECKED : MF_UNCHECKED);
323 if(globals.bExpert) AddTreeEx();
325 hSelect = TreeView_GetChild(globals.hTree, TVI_ROOT);
326 SendMessage(globals.hTree, TVM_SELECTITEM, 0, (LPARAM)hSelect);
327 RefreshMenu(hSelect);
329 case IDM_FLAG_INSERV:
330 vis = globals.dwClsCtx&CLSCTX_INPROC_SERVER;
331 globals.dwClsCtx = globals.dwClsCtx&(~CLSCTX_INPROC_SERVER);
332 globals.dwClsCtx = globals.dwClsCtx|((~vis)&CLSCTX_INPROC_SERVER);
333 if(!globals.dwClsCtx) globals.dwClsCtx = vis;
334 else CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
335 vis ? MF_UNCHECKED : MF_CHECKED);
337 case IDM_FLAG_INHANDL:
338 vis = globals.dwClsCtx&CLSCTX_INPROC_HANDLER;
339 globals.dwClsCtx = globals.dwClsCtx&(~CLSCTX_INPROC_HANDLER);
340 globals.dwClsCtx = globals.dwClsCtx|((~vis)&CLSCTX_INPROC_HANDLER);
341 if(!globals.dwClsCtx) globals.dwClsCtx = vis;
342 else CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
343 vis ? MF_UNCHECKED : MF_CHECKED);
345 case IDM_FLAG_LOCSERV:
346 vis = globals.dwClsCtx&CLSCTX_LOCAL_SERVER;
347 globals.dwClsCtx = globals.dwClsCtx&(~CLSCTX_LOCAL_SERVER);
348 globals.dwClsCtx = globals.dwClsCtx|((~vis)&CLSCTX_LOCAL_SERVER);
349 if(!globals.dwClsCtx) globals.dwClsCtx = vis;
350 else CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
351 vis ? MF_UNCHECKED : MF_CHECKED);
353 case IDM_FLAG_REMSERV:
354 vis = globals.dwClsCtx&CLSCTX_REMOTE_SERVER;
355 globals.dwClsCtx = globals.dwClsCtx&(~CLSCTX_REMOTE_SERVER);
356 globals.dwClsCtx = globals.dwClsCtx|((~vis)&CLSCTX_REMOTE_SERVER);
357 if(!globals.dwClsCtx) globals.dwClsCtx = vis;
358 else CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
359 vis ? MF_UNCHECKED : MF_CHECKED);
363 if(globals.bExpert) AddTreeEx();
365 hSelect = TreeView_GetChild(globals.hTree, TVI_ROOT);
366 SendMessage(globals.hTree, TVM_SELECTITEM, 0, (LPARAM)hSelect);
367 RefreshMenu(hSelect);
372 PROCESS_INFORMATION pi;
374 memset(&si, 0, sizeof(si));
376 CreateProcess(NULL, wszRegEdit, NULL, NULL, FALSE, 0,
377 NULL, NULL, &si, &pi);
378 CloseHandle(pi.hProcess);
379 CloseHandle(pi.hThread);
383 vis = IsWindowVisible(globals.hStatusBar);
384 ShowWindow(globals.hStatusBar, vis ? SW_HIDE : SW_SHOW);
385 CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
386 vis ? MF_UNCHECKED : MF_CHECKED);
390 DialogBox(0, MAKEINTRESOURCE(DLG_SYSCONF), hWnd, SysConfProc);
393 vis = IsWindowVisible(globals.hToolBar);
394 ShowWindow(globals.hToolBar, vis ? SW_HIDE : SW_SHOW);
395 CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
396 vis ? MF_UNCHECKED : MF_CHECKED);
402 static WCHAR wszTitle[MAX_LOAD_STRING];
403 static WCHAR wszName[MAX_LOAD_STRING];
404 static WCHAR wszFilter[MAX_LOAD_STRING];
406 LoadString(globals.hMainInst, IDS_OPEN, wszTitle, sizeof(wszTitle)/sizeof(wszTitle[0]));
407 LoadString(globals.hMainInst, IDS_OPEN_TYPELIB_FILTER, wszFilter, sizeof(wszFilter)/sizeof(wszFilter[0]));
408 InitOpenFileName(hWnd, &ofn, wszFilter, wszTitle, wszName);
409 if(GetOpenFileName(&ofn)) CreateTypeLibWindow(globals.hMainInst, wszName);
413 hSelect = TreeView_GetSelection(globals.hTree);
414 if(IsInterface(hSelect)) InterfaceViewer(hSelect);
415 else CreateTypeLibWindow(globals.hMainInst, NULL);
424 static void UpdateStatusBar(int itemID)
426 WCHAR info[MAX_LOAD_STRING];
428 if(!LoadString(globals.hMainInst, itemID, info, sizeof(info)/sizeof(info[0])))
429 LoadString(globals.hMainInst, IDS_READY, info, sizeof(info)/sizeof(info[0]));
431 SendMessage(globals.hStatusBar, SB_SETTEXT, 0, (LPARAM)info);
434 LRESULT CALLBACK WndProc(HWND hWnd, UINT uMsg,
435 WPARAM wParam, LPARAM lParam)
442 TypeLibRegisterClass();
443 if(!CreatePanedWindow(hWnd, &globals.hPaneWnd, globals.hMainInst))
445 SetLeft(globals.hPaneWnd, CreateTreeWindow(globals.hMainInst));
446 SetRight(globals.hPaneWnd, CreateDetailsWindow(globals.hMainInst));
447 SetFocus(globals.hTree);
450 MenuCommand(LOWORD(wParam), hWnd);
458 UpdateStatusBar(LOWORD(wParam));
461 SetFocus(globals.hTree);
464 if(wParam == SIZE_MINIMIZED) break;
468 return DefWindowProc(hWnd, uMsg, wParam, lParam);
473 static BOOL InitApplication(HINSTANCE hInst)
476 WCHAR wszAppName[MAX_LOAD_STRING];
478 LoadString(hInst, IDS_APPNAME, wszAppName, sizeof(wszAppName)/sizeof(wszAppName[0]));
480 memset(&wc, 0, sizeof(WNDCLASS));
481 wc.lpfnWndProc = WndProc;
482 wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
483 wc.lpszMenuName = MAKEINTRESOURCE(IDM_MENU);
484 wc.lpszClassName = wszAppName;
486 if(!RegisterClass(&wc))
492 static BOOL InitInstance(HINSTANCE hInst, int nCmdShow)
495 WCHAR wszAppName[MAX_LOAD_STRING];
496 WCHAR wszTitle[MAX_LOAD_STRING];
498 {0, 0, 0, BTNS_SEP, {0, 0}, 0, 0},
499 {0, IDM_BIND, TBSTATE_ENABLED, BTNS_BUTTON, {0, 0}, 0, 0},
500 {1, IDM_TYPELIB, TBSTATE_ENABLED, BTNS_BUTTON, {0, 0}, 0, 0},
501 {0, 0, 0, BTNS_SEP, {0, 0}, 0, 0},
502 {2, IDM_REGEDIT, TBSTATE_ENABLED, BTNS_BUTTON, {0, 0}, 0, 0},
503 {0, 0, 0, BTNS_SEP, {0, 0}, 0, 0},
504 {3, IDM_CREATEINST, TBSTATE_ENABLED, BTNS_BUTTON, {0, 0}, 0, 0},
505 {4, IDM_RELEASEINST, TBSTATE_ENABLED, BTNS_BUTTON, {0, 0}, 0, 0},
506 {0, 0, 0, BTNS_SEP, {0, 0}, 0, 0},
507 {5, IDM_VIEW, TBSTATE_ENABLED, BTNS_BUTTON, {0, 0}, 0, 0}
510 LoadString(hInst, IDS_APPNAME, wszAppName, sizeof(wszAppName)/sizeof(wszAppName[0]));
511 LoadString(hInst, IDS_APPTITLE, wszTitle, sizeof(wszTitle)/sizeof(wszTitle[0]));
513 hWnd = CreateWindow(wszAppName, wszTitle, WS_OVERLAPPEDWINDOW,
514 CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInst, NULL);
515 if(!hWnd) return FALSE;
517 globals.hStatusBar = CreateStatusWindow(WS_VISIBLE|WS_CHILD,
518 (LPWSTR)wszTitle, hWnd, 0);
520 globals.hToolBar = CreateToolbarEx(hWnd, WS_CHILD|WS_VISIBLE, 0, 1, hInst,
521 IDB_TOOLBAR, tB, 10, 16, 16, 16, 16, sizeof(TBBUTTON));
522 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_CREATEINST, FALSE);
523 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_RELEASEINST, FALSE);
524 SendMessage(globals.hToolBar, TB_ENABLEBUTTON, IDM_VIEW, FALSE);
526 globals.hMainWnd = hWnd;
527 globals.hMainInst = hInst;
528 globals.bExpert = TRUE;
529 globals.dwClsCtx = CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER;
531 ShowWindow(hWnd, nCmdShow);
537 int APIENTRY wWinMain(HINSTANCE hInst, HINSTANCE hPrevInst,
538 LPWSTR lpCmdLine, int nCmdShow)
545 if(!InitApplication(hInst))
549 if(!InitInstance(hInst, nCmdShow))
552 hAccelTable = LoadAccelerators(hInst, MAKEINTRESOURCE(IDA_OLEVIEW));
554 while(GetMessage(&msg, NULL, 0, 0))
556 if(TranslateAccelerator(globals.hMainWnd, hAccelTable, &msg)) continue;
558 TranslateMessage(&msg);
559 DispatchMessage(&msg);